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Part  I 


User’s  Manual 


Chapter  1 


Introduction 


When  siting  antennas  on  large  structures,  it  is  desirable  to  be  able  to  quickly  determine  the 
clear  line  of  sight  transmission  or  reception  paths  for  the  antennas.  If  the  structure  under 
consideration  is  a  space  station,  there  will  be  many  antennas  to  consider  in  an  environment 
composed  of  a  very  large  and  complex  array  of  living  and  working  module,  solar  panels, 
and  support  structures.  The  antennas  will  potentially  need  to  communicate  with  systems 
anywhere  around  the  near  zone  of  the  structure  and  the  complete  far  zone  sphere.  In  short, 
a  challenging  problem. 

In  order  to  aid  the  antenna  design  engineer  in  the  prediction  of  the  near  and  far  zone 
antenna  patterns,  antenna  to  antenna  coupling,  and  radiation  hazard  considerations,  for 
high  frequency  antennas  in  a  complex  environment,  a  couple  of  user  oriented  computer 
codes  have  been  developed:  the  NEC  -  Basic  Scattering  Code  (NEC-BSC)  [1,2]  and  the 
Aircraft  Code  (NEWAIR)  [3].  Both  codes  are  based  on  the  Uniform  Geometrical  Theory 
of  Diffraction  (UTD)  [4],  which  is  a  high  frequency  ray  optical  method  with  corrections  at 
shadow  boundaries.  The  UTD  is  ideal  for  construction  of  efficient  computer  codes,  Buch  as 
these,  for  modeling  the  scattering  from  large  structures.  The  NEC-BSC  and  NEWAIR  are 
complementary  codes,  that  is,  the  NEC-BSC  is  used  when  the  antennas  are  not  mounted 
on  a  curved  surface,  and  the  NEWAIR  is  used  when  the  antennas  are  mounted  on  a  curved 
surface.  Both  codes  use  plates  to  model  flat  structures,  the  NEC-BSC  presently  uses  finite 
elliptic  cylinders  to  model  curved  surfaces,  and  the  NEWAIR  presently  uses  ellipsoids. 

Although  the  two  UTD  codes  are  presently  very  useful  for  predicting  the  performance 
of  antennas  in  a  complex  environment,  such  as  a  space  station,  there  are  a  few  important 
consideration  that  should  be  taken  into  account.  First,  the  present  versions  of  these  codes 
were  not  specifically  developed  for  a  space  station  application.  The  NEC-BSC  was  developed 
for  ships  and  the  NEWAIR  for  aircraft.  Second  and  most  importantly,  even  though  they 
run  fast  for  large  size  structures  in  terms  of  a  wavelength,  as  compared  with  computer  codes 
using  other  theories,  such  as  method  of  moments;  a  problem  with  as  many  structural  pieces 
as  a  space  station  can  take  a  very  long  time  to  calculate  a  volumetric  pattern.  This  means 
that  the  problem  of  antenna  siting  in  a  large  structural  environment  should  be  viewed  as  a 
multiple  stepped  procedure  to  optimize  results  for  minimum  time  and  cost. 

The  design  procedure  for  antenna  siting  can  be  viewed  as  a  three  step  process,  as  far  as 
the  computer  codes  are  concerned.  First,  it  can  generally  be  assumed  that  a  good  antenna 
location  will  provide  a  clear  line  of  sight  path  between  transmitter  and  receiver  over  the 
desired  range  of  operation.  This  can  best  be  accomplished  using  a  obscuration  code,  which 
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is  the  goal  of  this  computer  code  and  document.  This  code  will  provide  a  volumetric  shadow 
map  of  the  projected  shadow  of  a  structure  onto  the  far  zone  sphere  centered  at  the  antenna 
location.  It  is  very  fast  running  on  space  station  applications  and  can  be  run  interactively 
providing  nearly  immediate  answers  depending  on  the  overall  useage  of  the  computer. 

Second,  a  worst  case  code  could  be  developed  that  will  predict  not  only  the  clear  line 
of  sight  regions,  but  will  also  map  out  the  maximum  values  of  the  various  field  terms,  such 
as  the  reflected  and  diffracted  lobes.  These  scattered  fields  can  cause  undesired  lobes  to 
show  up  in  the  region  of  interest.  This  type  of  code  will  not  only  provide  an  answer  to 
the  question  of  where  the  optimum  location  for  an  antenna  system  should  be,  but  also 
how  it  should  be  oriented  at  that  position  and  what  the  gain  and  side  lobe  levels  would  be 
optimum.  It  can  be  designed  to  run  at  a  little  additional  time  cost  over  the  obscuration 
code. 

The  final  step  would  be  to  run  a  field  prediction  code  such  as  the  NEC-BSC  and 
NEWAIR  codes  or  their  future  versions  optimized  for  the  space  station.  This  would  be 
the  confirmation  phase  of  the  design  procedure  to  make  sure  that  no  surprises  occur  in  the 
volumetric  patterns.  At  this  stage,  it  does  not  matter  that  the  codes  take  a  little  longer  to 
run,  especially  for  the  wealth  of  information  that  they  produce.  Of  course,  these  results  can 
be  used  to  compare  with  measured  results  on  scale  models  to  validate  the  measurements 
and  vice  versa. 

This  document  is  concerned  with  the  obscuration  code,  referred  to  here  as  “SHADOW” . 
It  has  been  specifically  design  with  space  station  applications  in  mind.  It  directly  solves 
for  a  shadow  map  by  projecting  the  border  of  multiple  sided  flat  plates  and  composite  cone 
frus'  ams  of  elliptic  cross  section  onto  the  far  zone  sphere.  It  then  fills  between  the  borders 
based  on  a  pixel  resolution  and  window  size  specified  by  the  user.  The  definition  of  the 
geometry  is  based  on  a  subset  of  the  command  word  input  system  used  for  the  UTD  codes. 
This  means  that  as  the  engineer  proceeds  through  a  design  scenario  progressing  through  the 
different  levels  of  codes,  there  will  be  a  minimum  amount  of  conversion  of  input  information. 

The  obscuration  code  has  proven  to  be  so  efficient,  that  it  was  felt  that  it  could  be  of  great 
benefit  to  the  design  engineer  to  be  able  to  run  it  in  an  interactive  mode.  Unfortunately, 
interactive  procedures  are  not  generally  transportable  between  different  computer  systems. 
Because  of  the  wide  availablity  of  DEC  VAX  computers  in  the  engineering  environment,  and 
because  of  the  ease  of  developing  an  interactive  system  on  a  VAX,  the  interactive  features 
have  been  developed  using  devise  dependent  software  for  the  VAX.  The  non-interactive  and 
interactive  parts  of  the  code  have  been  kept  separate,  however,  so  that  the  code  can  be  run 
non-interactively  without  much  change. 

This  document  is  divided  into  two  parts.  Part  I  is  a  user  manual,  that  treats  the  code 
more  or  less  as  a  black  box  device.  It  is  about  all  that  will  be  need  for  the  average  user  to 
get  started  and  obtain  results.  Chapter  2  describes  the  method  that  is  used  to  obtain  the 
shadow.  The  overall  view  of  the  operation  of  the  code  is  given  in  Chapter  3.  It  describes 
the  non-interactive  and  interactive  commands  in  a  qualitative  way.  A  dictionary  of  all  the 
non-interactive  commands  needed  in  the  SHADOW  code  is  given  in  Chapter  4.  It  gives 
the  details  for  inputting  each  command.  Chapter  5  provides  the  details  for  the  interactive 
commands.  The  output  features  are  interpreted  in  Chapter  6.  Examples  on  how  to  use  the 
code  are  given  in  Chapter  7.  When  first  learning  how  to  use  the  code,  it  is  essential  to  be 
able  to  reproduce  some  of  these  examples  to  be  sure  that  the  code  is  functioning  properly 
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on  your  system. 

Part  II  of  this  document  is  a  code  manual.  It  goes  into  more  specific  information  about 
the  coding  itself.  It  is  of  importance  primarily  for  people  implementing  the  code  on  a 
new  system,  for  debugging  errors,  or  for  making  changes  in  how  the  code  operates.  An 
overview  of  how  the  code  is  organized  is  given  in  Chapter  9.  A  listing  of  the  code  is  given 
in  Chapter  10.  It  is  broken  up  into  three  parts  for  the  non-interactive,  FORTRAN  77 
subroutines  and  into  the  interactive  VAX  dependent  subroutines.  The  implementation  of 
the  code  on  a  VAX  is  given  in  Chapter  11  and  a  brief  description  of  implementing  the  code 
on  a  non- VAX  computer  is  given  in  Chapter  12.  A  listing  of  an  NCAR  plotting  code  for 
the  shadow  map  is  given  in  Chapter  13. 
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Chapter  2 


Method 


The  first  gauge  of  the  ability  of  two  antenna  systems  to  communicate  with  one  another  at 
high  frequencies  is  to  determine  if  there  is  a  clear  line  of  sight  path  between  them.  This 
can  be  conveniently  represented  by  a  map  of  the  projected  shadow  on  the  far  zone  sphere 
caused  by  the  structures  around  an  antenna’s  environment.  One  method  of  producing  a 
shadow  map  is  to  choose  an  observation  point  on  the  far  zone  sphere  and  then  determine 
if  anything  obscures  the  path  and  then  move  on  to  the  next  point.  This  method  is  slow, 
however,  because  there  must  be  many  repeated  tests  on  the  same  blocking  structures  for 
the  various  observation  point  making  up  the  shadow  map. 

In  order  to  have  quick  turn  around  for  antennas  mounted  on  large  structures,  it  is 
desirable  to  use  a  method  that  will  directly  produce  the  shadow  projected  onto  the  far  zone 
sphere.  This  can  be  accomplished  in  a  two  step  process.  First  the  outside  boundary  of  each 
individual  piece  making  up  the  structure  can  be  transformed  from  the  x,  y,  z  coordinate 
system  into  a  sequence  of  lines  in  the  0  and  <f>  pattern  coordinate  system.  The  area  of  the 
shadow  map  between  the  boundary  lines  for  each  piece  may  then  be  filled  by  looking  at  the 
center  location  between  the  lines  and  a  shadow  check  on  that  piece  of  the  structure  can  be 
performed.  This  reduces  the  test  on  each  piece  of  structure  from  once  every  observation 
point  to  a  few  tests  every  pattern  cut  line.  The  calculation  time,  in  general,  is  reduced 
by  about  two  orders  of  magnitude.  For  example,  instead  of  taking  two  hours,  a  map  can 
conservatively  be  produced  in  about  one  minutes  or  better.  These  numbers  dependent  on 
the  geometry,  the  window  size  of  the  map,  and  the  resolution  desired. 

There  are  two  fundamental  types  of  structural  pieces  presently  available  for  modeling 
in  this  obscuration  code,  the  multiple  sided  flat  plate  and  the  multiple  rimmed  composite 
cone  frustum  of  elliptic  cross  section.  More  than  one  plate  or  cylinder  can  be  specified  to 
build  up  a  complex  structure.  A  plate  can  be  defined  by  the  location  of  its  corners  in  a 
reference  coordinate  system.  A  cone  frustum  can  be  defined  by  the  size  of  its  major  and 
minor  radii  for  each  rim  making  up  the  composite  cylinder. 

The  boundary  of  the  structures  are  traced  onto  the  far  zone  sphere  by  defining  a  vector 
from  the  source  position,  R,,  to  some  position  along  its  outer  boundary,  such  that 

R  =  Ri-Rt. 

In  the  case  of  the  plate,  the  boundary  is  defined  by  some  location  along  its  edges,  as  illus¬ 
trated  in  Figure  2.1.  This  vector  can  then  be  transformed  into  the  pattern  cut  coordinate 
system,  since  the  pattern  may  be  defined  relative  to  a  different  set  of  axes.  The  vector  can 
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then  be  transformed  onto  the  two  dimensional  far  zone  sphere  by 

0  =  arctan  ( p  ■  ft/z  •  ft) 
and 

4>  =  arctan  (j/  •  ft/x  •  ft)  . 

The  position  of  the  vector  along  the  edge  is  defined  by  starting  at  a  corner  and  then 
incrementing  the  edge  in  steps  of  St  along  the  edge.  In  order  to  provide  the  most  efficient 
performance  and  the  best  image  of  the  shadow  on  the  map,  it  is  necessary  to  define  St  as  a 
function  of  the  chosen  resolution  desired  for  the  map,  6a,  the  distance,  E,  from  the  source 
to  the  edge  point  and  the  relative  position  of  the  projected  shadow  point  with  respect  to 
the  polar  caps,  the  Greenland  effect. 

The  resolution,  Sa  is  chosen  to  be  the  minimum  of  the  two  specified  incremental  values 
of  0  and  <f>.  The  distance  R  is  defined  as  R  =  |fi,  -  ftj|.  Assuming  that  the  resolution 
increment  is  small  and  the  distance  is  relatively  large,  the  value  of  the  edge  increment  is 
given  by 

St  =  SaR  sin  5. 


The  new  edge  point  then  becomes 

ft+i  =  fti  +  Ste, 

where  e  is  the  edge  vector  pointing  from  the  first  corner  to  the  second  corner  making  up 
the  edge. 

The  composite  cone  frustum  can  be  done  in  the  same  way  as  the  plate.  In  fact  the  end 
caps  can  be  defined  as  plates  with  curved  edges  and  the  curved  surfaces  are  added  as  edges 
whose  corners  are  the  tangent  points  illustrated  in  Figure  2.2. 

Once  a  give  plate  or  cylinder  outer  boundary  is  transformed  onto  the  shadow  map  and 
stored  in  pixels  of  the  desired  resolution,  the  fill  process  can  begin.  The  pixel  array  is 
considered  one  row  at  a  time  in  a  scanning  operation  from  the  one  range  of  theta  embodied 
in  the  pixel  array  to  the  other.  The  direction  of  the  scan  and  the  order  in  which  rows  are 
scanned  is  arbitrary.  The  fill  process  is  the  same  for  each  scan  line  in  the  pixel  array  so 
that  no  logical  interaction  between  lines  takes  place.  The  process  is  similar  to  the  way  in 
which  a  television  paints  pictures  one  row  at  a  time  on  the  screen.  As  the  scan  proceeds 
say  from  left  to  right,  unlit  pixels  between  object  boundaries  on  the  line  which  correspond 
to  regions  in  the  interior  of  the  object  are  turned  on  creating  an  area  fill.  The  decision  to 
light  a  group  of  pixels  on  a  given  row  is  not  made  by  testing  each  pixel  individually  for 
obscuration  but  by  making  a  single  test  between  the  pixels  which  represent  boundaries  of 
the  projected  regions.  In  this  way,  only  a  single  test  is  made  to  determine  whether  a  whole 
group  of  pixels  represent  the  interior  or  exterior  of  a  region.  This  is  one  major  key  to  the 
sizable  reduction  of  processor  time  achieved. 

The  shadow  test  for  a  plate  is  made  by  first  projecting  the  vector  chosen  at  the  mid 
point  of  the  scan  line,  f ,  onto  the  plane  of  the  plate  to  find  its  intersection  point,  as  shown 
in  Figure  2.3,  that  is 

Ht  =  ftt_  [M&-CW 

1  ft  •  r 
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Figure  2.3:  Intersection  of  observation  direction  vector  with  plate. 
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Now,  using  an  idea  based  on  Cauchy’s  formula  from  complex  variables,  that  is, 

l  /(.)*-(  ?-  .  no p**1' “ *w  . 

Jc  [  one  pole  in  f(z) 

the  intersection  point  can  be  tested  to  see  whether  or  not  it  falls  within  the  limits  of  the 
plate.  This  is  illustrated  in  Figure  2.4. 

It  is  easy  to  show  that 


9m  =  arctan 


(Cm  —  Rt)  •  (Cm+i  —  Rt) 


which  leads  to  the  test,  if 

{<  ir,  no  hit  occurs 
>  Jr ,  a  hit  occurs 

The  end  caps  of  the  cone  frustum  cylinders  can  be  done  in  the  same  way,  by  projecting 
the  hit  point  in  the  plane  of  the  end  cap.  The  hit  point  distance  can  be  tested  from  the 
center  of  the  disk  to  see  if  it  falls  within  the  finite  limits  of  a  disk  to  simplify  things  a  little. 
The  curved  surface  test  is  a  different  matter,  but  still  quite  easy  to  accomplish.  A  vector 
on  the  surface  of  the  cone  frustum  can  be  represented  as 

Re  —  R  +  R» 


or 

Rc  =  (R cos  (ft  sin  0  +  x,)2  x  +  (R sin<ftsin0  +  y»)2  y  4-  {RcosO  +  z,)1  z. 

The  geometry  is  illustrated  in  Figure  2.5.  The  point  defined  by  Rc  should  satisfy  the 
equation  for  a  cone,  that  is, 


(/?cos0  +  x»)2  (flsin  ^sin0  +  y,)2 


-  A2(f?CO8  0  +  zt)  =  0 


where 


A;(f?cos0  +  *,) 


—  tan  Oj(Rcos  0  +  z, 
ai 


The  distance  R  is  unknown  in  this  equation,  since  we  know  the  direction  to  the  observer,  9 
and  <(>,  but  not  the  distance  to  the  hit  point.  We  can  solve  for  R,  however,  from  the  above 
equations  using 

aR2  +  2  PR  +  7  =  0, 


where 


_  cos2  <(>  sin2  9  sin2  sin2  0  tan2  9j  cos2  9 


.  x, cos ^ sin 9  ,  y,sin^sin^  .  ..  .  . 

0  =  — j - +  - — tj - tan9j  cob9A}(z,), 

ai  bj 
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Figure  2.5:  Geometry  illustrating  the  hit  point  on  a  cone  frustum  segment. 
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and 


If  the  value  of  E  is  real,  then  the  hit  point  is  on  the  finite  cone  frustum  and  therefore  the 
ray  from  the  source  to  observer  is  shadowed.  If  the  actual  hit  point  is  desired  it  should  be 
noted  that  there  are  two  values  found  from  this  equation,  and  that  the  right  hit  point  can 
be  found  from  the  one  representing  the  shortest  distance.  If  the  value  of  R  is  imaginary, 
however,  this  indicates  that  the  hit  point  is  off  the  real  boundary  of  the  cone  frustum  and 
therefore  the  ray  is  not  shadowed.  If  R  is  real,  an  additional  test  must  be  made  to  decide 
whether  the  hit  point  in  between  the  finite  length  bounds  of  the  frustum. 

The  basic  theory  discussed  here  is  rather  straight  forward.  The  implementation,  of 
course,  requires  a  lot  of  other  considerations  to  be  user  friendly  and  as  general  purpose  as 
possible.  The  next  chapter  will  go  into  more  detail  about  how  the  code  interfaces  with  the 
operator. 
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Chapter  3 

Principle  of  Operation 


3.1  Overview 


The  Obscuration  Code  is  intended  to  be  an  efficient  means  of  determining  the  clear  line 
of  sight  path  for  an  antenna  mounted  in  a  complex  environment.  This  code  produces  a 
shadow  map  of  the  geometry  for  a  given  source  location.  The  configuration  is  defined  using 
a  command  word  system  as  discussed  below.  The  geometry  of  the  structure  is  defined  by 
using  plates  and  cylinders.  It  is  thought  that  the  obscuration  code  is  just  one  step  in  a 
total  evaluation  scheme.  The  next  step  would  be  to  either  look  at  a  “worst  case”  map  that 
projects  the  location  of  the  maximum  lobes  on  to  a  volumetric  map  or  to  calculate  the  fields 
using  a  code  like  the  NEC-BSC.  In  any  case,  the  real  fields  should  be  calculated  as  the  final 
step  whether  an  intermediate  one  is  used  or  not.  For  this  reason,  the  geometry  definition 
is  based  on  the  NEC-BSC  code  method  of  inputting  information. 

The  obscuration  code,  however,  is  a  very  efficient  means  of  providing  a  shadow  map. 
It  can  be  run  in  a  matter  of  minutes  or  less  for  a  given  shadow  map.  It  is,  therefore,  felt 
that  it  can  be  most  efficiently  run  interactively,  that  is  with  the  user  sitting  at  a  terminal 
changing  antenna  locations,  looking  at  the  resultant  maps,  deciding  where  to  try  the  next 
antenna  location  until  the  desired  optimum  spot  is  found  to  achieve  a  given  performance. 
For  this  reason  the  code  has  been  developed  in  two  pieces.  One  is  a  standard  FORTRAN 
77  part  that  does  the  essential  shadowing  calculations.  The  second  is  an  interactive  part 
that  allows  the  user  to  change  the  source  locations  and  window  size  without  leaving  the 
code.  Unfortunately,  this  second  part  of  the  code  is  by  nature  device  dependent.  This 
part  has  been  written  for  the  DEC  VAX  series  of  computers  using  version  4  of  VMS.  It 
uses  system  handlers  for  defining  the  commands  discussed  in  the  sections  below  for  the 
interactive  commands  and  the  keypad  mode.  The  keys  on  the  keypad  of  VT100  or  VT200 
series  terminals  can  be  used  to  represent  the  typed  commands.  This  will  simplify  the  use 
of  the  code  by  reducing  the  amount  of  typing  necessary. 

This  chapter  tries  to  give  a  brief  overview  of  the  specifics  needed  to  run  the  code  by 
treating  it  as  a  black  box.  It  is  intended  to  just  get  the  user  comfortable  with  the  overall 
philosophy  of  the  obscuration  code. 
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3.2  Modeling  the  Structures 

The  building  blocks  available  for  the  obscuration  code  are  composed  of  pieces  that  are  an 
extension  of  version  2  of  the  NEC-BSC  [l] .  Structures  can  be  modeled  using  multiple  sided 
flat  plates  and  multiple  rimmed  cone  frustum  cylinders.  The  plates  can  be  used  individually 
to  model  things  like  solar  panels  or  together  to  form  box  like  structures  to  model  things  like 
the  mast,  etc.  The  cone  frustums  are  a  new  feature  here,  and  can  be  handy  for  modeling 
living  modules,  etc.  Examples  of  space  station  models  are  given  in  Chapter  7. 

Unlike  the  NEC-BSC,  there  are  no  real  restrictions  on  how  these  structures  are  defined. 
Since  the  code  just  looks  at  each  defined  piece  of  the  modeled  structure  individually,  casts  its 
shadow,  then  moves  on  to  the  next  piece,  it  does  not  have  to  properly  account  for  the  wedge 
angles  and  other  geometrical  features  needed  in  field  calculations  in  the  NEC-BSC.  If  one  is 
setting  up  a  model,  however,  it  still  might  be  useful  to  use  the  same  modeling  considerations 
as  the  NEC-BSC,  such  as  defining  the  corners  of  a  plate  so  the  normals  point  in  the  region 
of  space  in  which  the  source  is  located.  It  is  assumed  that  the  obscuration  code  phase  of  the 
design  procedure  will  be  followed  by  calculating  the  fields  for  the  antenna  on  the  structure 
using  a  code  such  as  the  NEC-BSC. 

The  number  of  plates  and  cylinders  that  can  be  used  in  the  models  is  dictated  only  by 
the  size  of  the  dimensions  implemented  in  the  array  for  defining  the  geometry  in  the  code. 
For  convenience,  these  parameters  are  located  in  one  file  in  the  code  so  they  only  need  to 
be  changed  in  one  spot.  The  details  are  given  in  Part  II. 

More  information  on  how  models  are  to  be  constructed  are  given  in  the  section  below 
on  the  non-interactive  commands  and  in  Chapter  4  where  these  commands  are  defined  in 
more  detail. 


3.3  Running  the  Code 

The  first  step  of  course  is  to  get  the  code  implemented  on  your  system.  The  details  of  how  to 
accomplish  this  are  given  in  Part  II.  In  order  to  use  the  full  interactive  features  of  the  code, 
it  is  necessary  to  use  the  code  on  a  DEC  VAX.  Many  of  the  interactive  features  use  VAX 
dependent  implementations  from  version  4  of  the  VMS  operating  system.  The  code  has 
been  divided  into  standard  FORTRAN  77  files  and  VAX  dependent  files,  however,  so  that 
the  code  can  be  used  without  the  interactive  features  on  other  systems.  A  slightly  different 
main  program  needs  to  be  used  as  provided  in  Part  II.  In  addition,  the  non  FORTRAN 
77  INCLUDE  statement  has  been  used  in  the  non  interactive  file.  Many  systems  have  this 
feature,  so  it  was  left  in  as  a  convenience.  If  the  user  system  does  not,  it  is  easy  to  remove 
by  hard  wiring  the  lines  in  the  appropriate  file  in  place  of  the  INCLUDE  statement.  Most 
of  the  information,  here,  will  assume  that  the  full  features  of  the  code  will  be  able  to  be 
used. 

The  first  step  in  using  the  code  is  to  create  a  file  that  contains  the  basic  structure 
definitions  using  the  non-interactive  commands  discussed  in  the  next  section.  The  command 
defining  the  source  location  and  window  size  of  the  shadow  map  can  also  be  defined  in  this 
input  file  or  added  and  changed  in  the  interactive  session.  Of  course,  if  you  are  running 
non-interactively,  then  all  the  data  must  be  input  from  the  input  file. 

Once  the  input  file  has  been  created  or  chosen  from  some  stored  files,  the  obscuration 
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code  can  be  executed.  It  will  read  the  input  file  from  logical  unit  #5.  An  interactive 
command  allows  the  user  to  connect  the  chosen  input  file  to  this  logical  unit  number.  The 
code  then  proceeds  to  read  the  input  information  and  produce  an  output  that  is  sent  to 
the  terminal  (logical  unit  #6)  representing  how  the  code  has  interpreted  the  input.  In  this 
process,  it  is  converting  all  the  input  into  a  standard  reference  coordinate  system  and  into 
a  common  set  of  units  which  is  meters.  If  there  is  a  typographical  error  or  other  error  in 
the  input  set  the  code  will  indicate  so  and  stop  execution  at  that  point. 

If  the  code  completes  the  input,  it  will  wait  for  the  next  instruction.  For  example,  the 
output  file  name  can  be  connect  to  the  logical  unit  which  is  #7  for  the  line  printer  output 
and  logical  unit  #10  for  the  plotter  output.  The  antenna  position  can  now  be  defined  or 
modified  and  the  desired  window  changed.  The  code  can  than  be  told  to  proceed  to  produce 
a  shadow  map. 

When  the  code  has  completed  the  shadow  calculation,  the  user  can  change  the  source 
location,  the  window  of  the  map,  or  input  another  structure  and  run  the  code  again;  or  he 
can  print  the  map  out.  The  map  is  an  array  of  pixels  (doubly  dimensioned  character  array) 
that  are  in  general  either  a  blank  representing  a  clear  path  or  a  character  representing  a 
blocked  path.  The  character  is  normally  a  uniform  character  such  as  an  “X”.  There  is  an 
option  to  tag  a  particular  plate  with  a  character  that  you  define,  or  the  code  will  letter  each 
plate  and  cylinder  separately.  This  is  useful  to  determine  which  plates  get  in  the  way  or  for 
debugging  purposes.  More  details  on  this  will  be  given  in  Chapter  6. 


3.4  Non-Interactive  Commands 

The  non-interactive  commands  needed  in  this  code  are  a  subset  and  a  slight  extension  of 
those  used  in  version  2  of  the  NEC-BSC  (lj.  The  total  list  of  the  available  non-interactive 
commands  are  given  in  Table  3.1.  Only  the  commands  of  interest  to  the  obscuration  code 
are  defined  in  this  manual.  The  rest  can  be  found  in  reference  [1]  or  in  later  reports  and 
manuals  for  newer  versions  of  the  codes.  This  section  is  intended  to  give  the  user  a  brief 
overview  of  the  specific  commands  of  interest  with  the  details  coming  in  the  next  Chapter. 

The  input  commands  words  are  intended  to  make  it  convenient  for  the  user  to  define 
the  geometry  of  the  structure  without  having  to  define  information  not  needed  or  repeat 
information  already  defined.  They  are  two  letter  pairs.  The  rest  of  the  characters  on  a 
command  word  line  can  be  used  for  comments,  since  only  the  first  two  letters  are  interpreted. 

There  is  a  place  in  the  code  to  place  default  data  that  will  be  present  without  a  call 
to  the  command.  This  is  convenient  when  a  specific  resolution  sized  of  the  shadow  map  is 
desired  as  a  default,  for  example.  The  default  window  can  be  initial  theta  angles  of  0  to 
180  in  steps  of  2  degrees  and  initial  phi  angles  of  0  to  360  in  steps  of  2  degrees  by  defining 
the  proper  variables  in  this  default  section.  A  cull  to  the  VF  command  will  over  ride  this 
data  if  it  is  specified  in  the  input  set. 

The  geometry  information  is  by  default  assumed  to  be  in  meters  in  a  definition  coor¬ 
dinate  system  that  is  initially  the  reference  coordinate  system.  The  units  can  be  changed 
using  the  UN  command  to  either  inches  or  feet  or  back  to  meters  again.  Once  the  UN 
command  is  specified  all  information  after  that  command  is  assumed  to  be  in  those  units 
unless  changed  by  another  call  to  UN.  There  is  also  provision  for  using  any  conversion  fac- 
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COMMAND 


BP 


CC 


CE 


CG 


CM 


EN 


FM 


FR 


GP 


GR 


LP 


DEFINITION 


back  or  bistatic  scatter 


cone  frustum  geometry 


last  or  only  comment 


cylinder  geometry 


comment  card 


end  execution 


swept  frequencies 


frequency 


infinite  ground  plane 


range  gate 


line  printer  output 


next  set  of  cylinders 


no  ground  plane 


next  set  of  plates 


next  set  of  receivers 


next  set  of  sources 


next  problem 


far  zone  pattern  cut 


far  zone  cut  (non  integer) 


plate  geometry 


near  zone  pattern  cut 


plotter  output 


gain  or  coupling  factors 


receiver  array  geometry 


far  zone  range 


receiver  geometry 


NEC-MOM  receiver  input 


rotate-translate  geometry 


source  array  geometry 


source  geometry 


NEC-MOM  source  input 


test  options 


model  scale  factor 


units  of  geometry 


units  of  source  size 


volumetric  cut  (integer) 


volumetric  far  zone  cut 


volumetric  near  zone  cut 


volumetric  plotter  output 


execute  code 


LOCATION 


pg  24 


pg  30  or  [1) 


pg  27  or  [1 


pg  31  or 


not  documented 


pg  32  or 


pg  32  or 


pg  32  or  [1] 


[1] 


pg  32  or  [1 


pg  32  or  [1 


not  documented 


pg  33  or 


not  documented 


pg  44 


not  documented 


not  documented 


pg  47  or 
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tor  desired.  It  is  input  using  the  UF  command  and  is  a  scale  factor  multiplying  times  all 
the  input  dimensions  in  whatever  unit  have  been  defined.  The  code  then  takes  the  input 
information  and  changes  it  internally  and  stores  it  in  meters,  in  order  to  have  a  uniform 
system  in  which  to  operate.  The  input  dimensions  and  the  internal  dimensions  are  output 
in  the  feed  back  print  out  sent  to  a  file  so  the  user  can  see  what  happened.  The  dimensions 
of  the  source  itself,  that  is  length  and  width  not  its  position,  is  handled  with  a  default  of 
wavelengths.  This  can  be  changed  with  the  US.  The  length  and  width  of  the  source  is  not 
important  in  this  code  so  it  can  be  ignored  here. 

The  reference  coordinate  system  is  really  whatever  is  convenient  for  the  user.  The 
definition  coordinate  system  is  the  same  as  this  initial  reference  system  or  it  can  be  changed 
using  the  rotate  translate  command  RT.  The  RT  command  allows  allows  the  user  to  relocate 
the  origin  and  orientation  of  the  definition  coordinate  system  with  respect  to  the  reference 
coordinate  system.  The  definition  system  stay  _>  defined  for  all  subsequent  geometry  input 
until  it  is  changed.  The  RT  command’s  definition  is  always  referenced  to  the  reference 
coordinate  system  NOT  to  itself,  that  is,  one  does  not  put  in  inverse  locations  and  angles 
to  undo  the  command,  but  resets  it  to  the  zero  position  of  the  origin  and  the  z-axis  and 
x-axis  of  the  reference  coordinate  system.  Note  that  all  angles  are  assumed  to  be  input  in 
degrees.  The  coordinate  axes  are  input  in  a  uniform  way  through  out  the  code  by  treating 
the  new  axes  vectors  as  if  they  were  radial  vectors  in  the  system  being  used.  That  is  the 
z-axis  is  defined  using  a  theta  and  phi  angle  relative  to  the  reference  coordinate  system  in 
the  RT  command  and  likewise  the  x-axis  is  treated  as  a  radial  vector.  The  y-axis  is  defined 
by  a  cross  product  between  the  x  and  z  axes.  The  code  checks  that  the  x  and  z  axes  were 
defined  orthogonal  to  one  another.  If  not  an  error  message  will  result  and  the  code  will 
stop. 

The  geometry  commands  are  the  PG  command  for  the  plates,  the  GP  command  for  the 
infinite  ground  plane,  the  CG  command  for  an  elliptic  cylinder,  and  the  CC  command  for 
the  cone  frustum  cylinders.  The  plates  are  defined  by  inputting  the  number  and  location  of 
their  corners  in  the  definition  system.  The  ground  plane  is  defined  as  a  infinite  plane  lying 
in  the  x-y  plane  of  the  definition  coordinate  system.  The  elliptic  cylinder  definition  is  base 
on  the  location  of  its  origin  and  the  orientation  of  its  z-  and  x-axes  relative  to  the  definition 
coordinate  system.  In  addition,  the  radius  along  its  cylinder  x-axis  and  the  radius  along  its 
cylinder  y-axis,  along  with  the  z-axis  position  and  angular  orientation  of  its  end  caps  are 
needed.  The  cone  frustum’s  definition  is  similar  except  that  the  number  of  rims  making  up 
the  cylinder  need  to  be  specified  and  the  orientation  of  the  rims  does  not,  since  they  can’t 
be  cut  at  an  angle  as  in  the  elliptic  cylinder  case.  For  the  plates  and  cylinders  the  code 
automatically  adds  up  the  number  of  calls  to  the  commands  and  counts  that  as  the  number 
of  plates  or  cylinders  specified.  Only  one  infinite  ground  plane  can  be  defined. 

The  location  of  the  sources  are  specified  by  their  location,  type,  orientation,  and  relative 
weights  using  the  SG  command.  Only  the  location  information  is  important  to  the  obscura¬ 
tion  code.  Each  source  specified  is  automatically  counted  and  remember  as  the  number  of 
sources.  Unlike  the  plates  and  cylinders,  the  obscuration  code  only  calculates  one  source  at 
a  time  for  a  shadow  map.  In  non-interactive  mode,  it  does  one  source  at  a  time  producing 
a  map  for  each.  In  interactive  mode,  it  takes  the  first  one  as  the  default  source  and  then 
each  subsequent  one  needs  to  be  interactively  input.  Receivers  are  not  recognized  by  the 
shadow  code,  so  if  in  reality  you  are  studying  a  receiver,  it  must  be  input  as  a  source  not  a 
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receiver  for  shadowing  purposes. 

In  order  to  negate  already  defined  commands  for  the  geometry  which  is  automatically 
increasing  their  number,  a  series  of  commands  have  been  implemented.  The  plates  can  be 
reset  to  zero  using  the  NP  command.  The  ground  plane  with  NG,  the  cylinders  with  NC, 
the  sources  with  NS,  and  the  entire  run  can  be  reset  with  the  NX  command. 

The  code  is  told  to  go  and  execute  the  interactive  mode  if  it  is  available,  or  to  go  and 
execute  the  shadow  calculations  if  the  interactive  mode  has  not  been  implemented  using 
the  XQ  command.  The  EN  command  tells  it  to  exit  back  to  the  operating  system. 

The  next  section  will  discuss  an  overview  of  the  interactive  commands  and  examples  of 
these  commands  are  given  in  Chapter  7. 


3.5  Interactive  Commands 

The  interactive  commands  provided  by  the  code  under  VMS  are  designed  to  allow  easy 
specification  of  commonly  changed  parameters  with  a  syntax  which  is  well-known  to  users 
of  VMS,  the  DCL  command  interpreter  syntax.  To  acquaint  the  reader  with  the  appearance 
of  these  commands,  they  are  summarized  below.  Detailed  descriptions  of  each  command 
complete  with  examples  can  be  found  in  the  Chapter  5  on  interactive  commands.  A  list  of 
the  available  interactive  commands  are  given  in  Table  3.2. 

There  are  interactive  commands  to  allow  the  user  to  control  the  operation  of  the  code 
or  to  change  or  view  the  geometry.  The  SHADOW  command  produces  the  shadow  map. 
The  HELP  command  gives  a  descriptions  of  the  commands.  The  EXIT  command  exits  the 
user  back  to  the  operating  system.  The  SPAWN  command  allows  the  use  of  DCL  command 
while  the  user  is  still  in  the  shadow  code. 

The  rest  of  the  commands  either  allow  the  user  to  change  the  geometry,  with  the  SHOW 
commands,  or  see  the  present  status  of  the  geometry,  with  the  SET  commands.  Most  of 
them  have  a  non-interactive  command  to  which  they  are  at  least  somewhat  associated.  The 
SET  UNITS  command  allows  the  units  of  the  antenna  location  to  be  chosen,  similar  to 
the  UN  command.  The  SET  SCALE-FACTOR,  command  is  like  the  UF  command,  which 
allows  an  arbitrary  scale  factor  for  the  geometry  to  be  chosen.  The  SET  COORDINATES 
command  allows  the  definition  coordinate  system  to  be  change,  like  in  the  RT  command. 
The  SET  ANTENNA  command  enables  the  user  to  interactively  specify  the  antenna  lo¬ 
cation  in  the  definition  coordinate  system.  It  is  related  to  the  SG  command.  The  SET 
PATTERN-CUT  command  allow  the  user  to  specify  the  orientation  of  the  pattern  coor¬ 
dinate  system  in  the  reference  coordinate  system.  The  SET  WINDOW  command  enables 
the  initial,  final  and  incremental  angles  of  the  shadow  map  to  be  specified.  These  two 
commands  are  related  to  the  VF  command. 

The  next  four  commands  do  not  have  non-interactive  commands  to  which  they  are 
related.  The  SET  INPUT  command  allows  the  user  to  specify  what  file  containing  the  non¬ 
interactive  commands  is  to  be  read.  The  SET  OUTPUT  command  enables  the  specification 
of  which  output  files  are  to  be  assigned  and  their  names.  The  SET  FILL-CHARACTER 
command  allows  the  user  to  define  the  symbols  that  are  used  for  the  plate  and  cylinder 
shadows.  The  SET  KEYPAD-MODE  command  enables  the  VT100  keypad  to  be  used 
for  command  definitions  as  is  discussed  in  the  next  section,  otherwise,  the  keypad  can  be 
used  for  numerical  input.  These  four  commands  are  discussed  much  more  thoroughly  in 
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Chapter  6. 


3.6  Keypad  Use 

The  definable  keypad  functions  are  available  for  the  interactive  version  of  the  code  only.  The 
keypad  definitions  are  made  possible  through  the  use  of  an  integrated  VMS  screen/ terminal 
management  package  called  SMG.  It  is  a  collection  of  runtime  library  routines  which  perform 
terminal  I/O  and  intercept  the  special  sequences  transmitted  by  the  keypad  keys.  When 
one  of  these  keys  are  pressed,  the  text  definition  associated  with  the  key  is  substituted  onto 
the  command  line.  All  of  this  I/O  U  transparent  to  the  user  so  that  he  need  only  worry 
about  making  the  initial  keypad  definitions.  For  more  information  about  SMG,  the  reader 
is  referred  to  the  VMS  runtime  library  reference  manual. 

The  keypad  definitions  are  initialized  by  a  text  file  containing  suitable  “DEFINE/KEY" 
commands.  The  file  is  called  SHADOW. KPD  and  must  reside  in  the  default  directory  of 
the  user  running  the  code.  There  is  a  template  file  provided  with  the  code  which  may 
be  customized  by  the  user.  The  predefined  definitions  of  the  VT100  keypad  are  shown  in 
Table  3.3.  Note  that  the  “gold”  enables  the  lower  case  action  in  the  top  row,  that  is,  in 
most  case  the  “SHOW”  operation  instead  of  the  “SET”  operation. 
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COMMAND 

LOCATION 

EXIT 

Page  49 

HELP 

Page  50 

SPAWN 

Page  54 

SET  ANTENNA-LOCATION 

Page  56 

SET  COORDINATES 

Page  58 

SET  FILL-CHARACTER 

Page  59 

SET  INPUT-SET 

Page  62 

SET  KEYPAD-MODE 

Page  63 

SET  OUTPUT 

Page  64 

SET  PATTERN. CUT 

Page  66 

SET  SCALE-FACTOR 

Page  67 

SET  UNITS 

Page  68 

SET  WINDOW 

Page  69 

SHADOW 

Page  52 

SHOW  ANTENNA-LOCATION 

unriit 

SHOW  COORDINATES 

Page  72 

SHOW  FILL-CHARACTER 

Page  73 

SHOW  INPUT-SET 

Page  74 

SHOW  KEYPAD-MODE 

Page  75 

SHOW  OUTPUT 

Page  76 

SHOW  PATTERN-CUT 

Page  77 

SHOW  SCALE-FACTOR 

Page  78 

SHOW  UNITS 

Page  79 

SHOW  WINDOW 

Page  80 

Table  3.2:  Table  of  interactive  commands. 
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PFl 

PF2 

PF3 

PF3 

nokeypad 

SET 

gold 

HELP 

SHADOW 

KEYPAD 

7 

8 

9 

- 

show 

show 

show 

show 

SET 

SET 

SET 

SET 

OUTPUT 

INPUT 

ANTENNA 

WINDOW 

4 

5 

6 

» 

show 

show 

show 

show 

SET 

SET 

SET 

SET 

SCALE 

UNITS 

COORD 

PATTERN 

l 

2 

3 

Enter 

show 

/cylin 

show 

SET 

FILL 

FILL 

FILL 

/PLATE 

/SEQUEN 

RETURN 

0 

• 

SPAWN 

EXIT 

Table  3.3:  VT100  keypad  for  SHADOW  interactive  commands. 
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Chapter  4 


Non-Interactive  Commands 


The  non  interactive  commands  discussed  in  this  chapter  are  a  subset  of  the  commands  used 
for  the  NEC-BSC2.  The  shadow  code  will  recognize  the  entire  set  of  NEC-BSC2  commands 
plus  a  few  new  ones.  The  new  commands  and  some  of  the  old  ones  that  are  pertinent  to 
this  code  will  be  described  here.  The  following  sections  define  in  detail  each  command  word 
and  the  variables  associated  with  them.  This  chapter  is  organized  in  alphabetical  order  of 
the  commands.  It  is  intended  to  be  used  as  a  reference  for  the  user.  Chapter  7  will  give 
specific  examples  using  this  input  method. 

The  method  used  to  input  data  into  the  computer  is  presently  based  on  a  command 
word  system.  This  is  especially  convenient  when  more  than  one  problem  is  to  be  analyzed 
during  a  computer  run.  The  code  stores  the  previous  input  data  such  that  one  need  only 
input  that  data  which  has  to  be  changed  from  the  previous  execution.  Also,  there  is  a  ' 
default  list  of  data  so  for  any  given  problem  the  amount  of  data  that  needs  to  be  input  has 
been  shortened.  The  command  word  options  presently  available  are  listed  in  Table  3.1  on 
page  16.  The  colon  after  the  command  word  is  not  necessary  and  is  sometimes  used  just 
to  illustrate  the  separation  between  the  command  word  and  the  space  where  comments  can 
be  inserted. 

In  this  system,  all  linear  dimensions  may  be  specified  in  either  meters,  inches,  or  feet 
and  all  angular  dimensions  are  in  degrees.  All  the  dimensions  are  eventually  referred  to  a 
fixed  cartesian  coordinate  system  used  as  a  common  reference  for  the  source  and  scattering 
structures.  There  is,  however,  a  geometry  definition  coordinate  system  that  may  be  defined 
using  the  RT  command.  This  command  enables  the  user  to  rotate  and  translate  the  co¬ 
ordinate  system  to  be  used  to  input  any  selected  data  set  into  the  best  coordinate  system 
for  that  particular  geometry.  Once  the  RT  command  is  used  all  the  input  following  the 
command  will  be  in  that  rotated  and  translated  coordinate  system  until  the  RT  command 
is  called  again.  See  below  for  more  details.  There  is  also  a  separate  coordinate  system  that 
can  be  used  to  define  a  pattern  coordinate  system.  This  is  discussed  in  more  detail  in  terms 
of  the  VF  command. 

It  is  felt  that  the  maximum  usefulness  of  the  computer  code  can  be  achieved  using  it  on 
an  interactive  computer  system.  As  a  consequence,  all  input  data  are  defined  in  free  format 
such  that  the  operator  need  only  put  commas  between  the  various  inputs.  This  allows 
the  user  on  an  interactive  terminal  to  avoid  the  problems  associated  with  typing  in  the 
field  length  associated  with  a  fixed  format.  This  method  also  is  useful  on  batch  processing 
computers.  Note  that  all  read  statements  are  made  on  unit  #5,  i.e.,  READ(5,*),  where 
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the  symbol  refers  to  free  format.  Other  machines,  however,  may  have  different  symbols 
representing  free  format. 

In  all  the  following  discussions  associated  with  logical  variables  a  “T"  will  imply  true, 
and  an  “F”  will  imply  false.  The  complete  words  true  and  false  need  not  be  input  since  most 
compilers  just  consider  the  first  character  in  determining  the  state  of  the  logical  variable. 
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4.1  Command  CC:  Cone  Frustum  Geometry 

This  command  enables  the  user  to  define  the  geometry  of  the  finite  elliptic  conical  cylinder 
structures  to  be  considered.  The  geometry  is  illustrated  in  Figure  4.1.  One  call  to  this 
command  defines  one  cylinder.  The  number  of  cylinders  in  the  structure  are  automatically 
counted  by  the  number  of  calls  to  this  command. 


READ:  (XCL(N,MC),N=1,3) 


_ where _ 

XCL(N,MC)  This  is  a  doubly  dimensioned  real  variable.  It  is  used  to  spec¬ 
ify  the  location  of  the  origin  of  the  MCth  elliptic  cylinder  relative  to  the 
definition  coordinate  system.  It  is  input  on  a  single  line  with  the  real  num¬ 
bers  being  the  x,y,z  coordinates  of  the  origin  which  correspond  to  N=l,2,3, 
respectively. 


READ:  TCLZ,  PCLZ,  TCLX,  PCLX 


_ where _ 

TCLZ, PCLZ  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  zc-axis  of  the  cylinder  coordinate  system  as  if  it  was 
a  radial  vector  in  the  definition  coordinate  system. 

TCLX, PCLX  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  xc-axis  of  the  cylinder  coordinate  system  as  if  it  was 
a  radial  vector  in  the  definition  coordinate  system. 

Note  that  the  new  ze-axis  and  ze-axis  must  be  defined  orthogonal  to  each  other. 

The  new  yc-axis  is  found  from  the  cross  product  of  the  xc-  and  zc-axes.  _ 

READ:  NEC(MC) 


_ where _ 

NEC(MC)  This  is  a  dimensioned  integer  variable  which  defines  the  number  of 
edges  the  conical  cylinder  has. 


READ:  AC(NC,MC),  BC(NC,MC),  ZC(NC,MC) 

_ where - 
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AC(NC,MC)  This  is  a  double  dimensioned  real  variable  which  defines  the 
radius  of  the  NCth  rim  on  the  zc-axis  of  the  MCth  elliptic  cylinder. 

BC(NC,MC)  This  is  a  double  dimensioned  real  variable  which  defines  the 
radius  of  the  NCth  rim  on  the  ye-axis  of  the  MCth  elliptic  cylinder. 

ZC(NC,MC)  This  is  a  double  dimensioned  real  variable  which  defines  the  z 
position  of  the  NCth  rim  along  the  ze-axis  of  the  MCth  elliptic  cylinder. 

Note  that  the  program  will  keep  increasing  the  number  of  cylinders  in  the  solution  by  the 
number  of  calls  to  this  command  unless  the  NC  or  NX  commands  are  called  to  reinitialize 
the  cylinder  geometry.  Also,  the  ellipticity  of  a  conical  structure  should  remain  the  same 
for  the  entire  length  of  that  structure.  The  most  positive  rim  should  be  defined  first  until 
all  NC  rims  are  defined  in  descending  order. 


25 


Figure  4.1:  Definition  of  finite  cylinder  geometry  composed  of  cone  frustum  segments  with 
elliptic  cross  section. 
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4.2  Command  CG:  Cylinder  Geometry 

This  command  enables  the  user  to  define  the  geometry  of  the  finite  elliptic  cylinder  struc¬ 
tures  to  be  considered.  The  geometry  is  illustrated  in  Figure  4.2.  One  call  to  this  command 
defines  one  cylinder.  The  number  of  cylinders  in  the  structure  are  automatically  counted 
by  the  number  of  calls  to  this  command. 


READ:  (XCL(N,MC),N=1,3) 


- where _ 

XCL(N,MC)  This  is  a  doubly  dimensioned  real  variable.  It  is  used  to  spec¬ 
ify  the  location  of  the  origin  of  the  MCth  elliptic  cylinder  relative  to  the 
definition  coordinate  system.  It  is  input  on  a  single  line  with  the  real  num¬ 
bers  being  the  x,y,z  coordinates  of  the  origin  which  correspond  to  N=l,2,3, 
respectively. 


READ:  TCLZ,  PCLZ,  TCLX,  PCLX 


- where _ 

TCLZ, PCLZ  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  ze-axis  of  the  cylinder  coordinate  system  as  if  it  was 
a  radial  vector  in  the  definition  coordinate  system. 

TCLX, PCLX  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  ze-axis  of  the  cylinder  coordinate  system  as  if  it  was 
a  radial  vector  in  the  definition  coordinate  system. 

Note  that  the  new  *e-axis  and  2c-axis  must  be  defined  orthogonal  to  each  other. 

The  new  ye-axis  is  found  from  the  cross  product  of  the  xc-  and  *c-axes.  _ 

READ:  AC(1,MC),  BC(1,MC) 


- where _ 

AC(1,MC)  This  is  a  double  dimensioned  real  variable  which  defines  the  radius 
of  the  MCth  elliptic  cylinder  on  the  xe-axis  of  the  cylinder. 

BC(1,MC)  This  is  a  double  dimensioned  real  variable  which  defines  the  radius 
of  the  MCth  elliptic  cylinder  on  the  ye-axis  of  the  cylinder. 


READ:  ZCN,  THTN,  ZCP,  THTP 
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where 


ZCN  This  is  a  real  variable  that  defines  the  position  the  center  of  the  most 
negative  end  cap  on  the  z,.-axis  of  the  cylinder. 

THTN  This  is  a  real  variable.  It  is  input  in  degrees  and  defines  the  angle  the 
surface  of  the  most  negative  end  cap  makes  with  the  positive  *e-axis  in  the 
xe-ze  plane. 

ZCP  This  is  a  real  variable  that  defines  the  position  of  the  center  of  the  most 
positive  end  cap  on  the  zc-axis  of  the  cylinder. 

THTP  This  is  a  real  variable.  It  is  input  in  degrees  and  defines  the  angle  the 
surface  of  the  most  positive  end  cap  makes  with  the  positive  ze-axis  in  the 
xe-zc  plane. 

Note  that  the  program  will  keep  increasing  the  number  of  cylinders  in  the  solution  by  the 
number  of  calls  to  this  command  unless  the  NC  or  NX  commands  are  called  to  reinitialize 
the  cylinder  geometry. 
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4.3  Command  CM:  and  CE:  Comments 


These  commands  enable  the  user  to  place  comment  cards  in  the  input  and  output  data  in 
order  to  help  identify  the  computer  runs  for  present  and  future  reference. 


READ:  (IR(I),  1=1,36) 

- where _ 

IR(I)  This  is  a  CHARACTERS  dimensioned  array  used  to  store  the  command 
word  and  comments.  Each  card  should  have  CM  or  CE  on  them  followed 
by  an  alphanumeric  string  of  characters.  The  CM  command  implies  that 
there  will  be  another  comment  card  following  it.  The  last  comment  card 
must  have  the  CE  command  on  it.  If  there  is  only  one  comment  card  the 
CE  command  must  be  used. 

Note  that  it  is  possible  to  place  comments  to  the  right  of  all  the  command  words,  if 
desired. 

4.4  Command  EN:  End  Program 

This  command  enables  the  user  to  terminate  the  execution  of  the  scattering  code. 
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4.5  Command  GP:  Ground  Plane 

This  command  enables  the  user  to  specify  an  infinite  ground  plane  in  the  xryt  plane. 


READ:  LSLAB(MPDX) 


- where _ 

LSLAB(MPDX)  This  is  a  dimensioned  integer  variable.  It  is  used  to  define 
the  type  of  plate  desired  as  follows: 

0  =  Perfectly  conducting  metalic  plate 
-3  =  Dielectric  half  space 

Note  that  if  LSLAB{MPDX)=0  the  code  will  skip  around  the  READ  state¬ 
ment  for  the  dielectric  information,  therefore,  the  next  line  defining  the 
dielectric  properties  should  not  be  placed  in  the  input  data  set. 


READ:  ERSLAB(1,MPDX),  TESLAB(1,MPDX), 

URSLAB(1,MPDX),  TMSLAB(1,MPDX) 

- -  where _ 

ERSLAB(l,MPDX)  This  is  a  doubly  dimensioned  variable.  It  is  used  to 
specify  the  relative  dielectric  constant  of  the  half  space. 

TESLAB(1,MPDX)  This  is  a  doubly  dimensioned  variable.  It  is  used  to  spec¬ 
ify  the  dielectric  loss  tangent  if  the  number  is  positive  or  the  conductivity 
if  the  number  is  negative  of  the  half  space. 

URSLAB(1,MPDX)  This  is  a  doubly  dimensioned  variable.  It  is  used  to 
specify  the  relative  permeability  constant  of  the  half  space. 

TMSLAB(1,MPDX)  This  is  a  doubly  dimensioned  variable.  It  is  used  to 
specify  the  permeability  loss  tangent  of  the  half  space. 
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4.6  Command  NC:  Next  Set  of  Cylinders 

This  command  enables  the  user  to  initialize  the  cylinder  data.  All  of  the  cylinders  are 
removed  from  the  problem  unless  they  are  respecified  following  this  command. 

4.7  Command  NG:  No  Ground  Plane 

This  command  enables  the  user  to  initialize  the  infinite  ground  plane.  The  ground  plane  is 
removed  from  the  problem  unless  it  is  respecified  following  this  command. 


4.8  Command  NP:  Next  Set  of  Plates 

This  command  enables  the  user  to  initialize  the  plate  data.  All  of  the  plates  are  removed 
from  the  problem  unless  they  are  respecified  following  this  command. 


4.9  Command  NS:  Next  Set  of  Sources 

This  command  enables  the  user  to  initialize  the  source  data.  All  of  the  sources  are  removed 
from  the  problem  unless  they  are  respecified  following  the  command. 

4.10  Command  NX:  Next  Problem 

This  command  enables  the  user  to  initialize  the  commands  to  their  default  conditions  spec¬ 
ified  in  the  list  at  the  beginning  of  the  main  program. 
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4.11  Command  PG:  Plate  Geometry 

This  command  enables  the  user  to  define  the  geometry  of  the  flat  plate  structures  to  be 
considered.  The  geometry  is  illustrated  in  Figure  4.3.  One  call  to  this  command  defines 
one  plate.  The  number  of  plates  in  the  structure  are  automatically  counted  by  the  number 
of  calls  to  this  command. 


READ:  MEP(MP),  LSLAB(MP) 

_ where _ 

MEP(MP)  This  is  a  dimensioned  integer  variable.  It  is  used  to  define  the 
number  of  corners  (or  edges)  on  the  MPth  plate. 

LSLAB(MP)  This  is  a  dimensioned  integer  variable.  It  is  used  to  define  the 
type  of  plate  desired  as  follows: 

1  =  Transparent  thin  dielectric  slab 
0  =  Perfectly  conducting  metalic  plate 
-2  =  Dielectric  covered  plate 

Note  that  if  LSLAB(MP)=0  the  code  will  skip  to  the  read  statements  associated 
with  the  corners  XX(N,ME,MP).  Therefore,  the  information  for  the  different  slab 
layers  should  not  be  put  in  the  data  list  for  the  perfectly  conducting  plate. 


READ:  NSLAB(MP) 

_ where _ 

NSLAB(MP)  This  is  a  dimensioned  integer  variable.  It  is  used  to  define  the 
number  of  dielectric  layers  on  the  MPth  plate. 


READ:  DSLAB(NS,MP),  ERSLAB(NS,MP),  TESLAB(NS,MP), 
URSLAB(NS,MP),  TMSLAB(NS,MP) 

_ where _ 

DSLAB(NS,MP)  This  is  a  doubly  dimensioned  variable.  It  is  used  to  specify 
the  thickness  of  the  NSth  layer. 

ERSLAB(NS,MP)  This  is  a  doubly  dimensioned  variable.  It  is  used  to  specify 
the  relative  dielectric  constant  of  the  NSth  layer. 

TESLAB(NS,MP)  This  is  a  doubly  dimensioned  variable.  It  is  used  to  specify 
the  dielectric  loss  tangent  if  the  number  is  positive  or  the  conductivity  if 
the  number  is  negative  of  the  NSth  layer. 
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URSLAB(NS,MP)  This  is  a  doubly  dimensioned  variable.  It  is  used  to  specify 
the  relative  permeability  constant  of  the  NSth  layer. 

TMSLAB(NS,MP)  This  is  a  doubly  dimensioned  variable.  It  is  used  to  spec¬ 
ify  the  permeability  loss  tangent  of  the  NSth  layer. 

Note  there  will  be  NSLAB(MP)  number  of  lines  of  the  above  data. 


READ:  (XX(N,ME,MP),N=1,3) 


_ where - 

XX(N,ME,MP)  This  is  a  triply  dimensioned  real  variable.  It  is  used  to  specify 
the  location  of  the  MEth  corner  of  the  MPth  plate.  It  is  input  on  a  single 
line  with  the  real  numbers  being  the  x,y,z  coordinates  of  the  corner,  in  the 
specified  coordinate  system,  which  corresponds  to  N=l,2,3,  respectively,  in 
the  array.  For  example,  the  array  will  contain  the  following  for  plate  #1 
and  corner  #2  located  at  x=2.,  y=4.,  z=6.: 

XX(1,2,1)=2. 

XX(2,2,1)=4. 

XX(3,2,l)=6. 

This  data  is  input  as:  2. ,4. ,6. 

This  read  statement  will  be  called  MEP(MP)  times  so  that  all  the  corners  are  defined. 
As  an  example,  the  input  data  for  the  flat  plate  structure  given  in  Figure  4.3,  is  given  by 

4,0  xorners  and  type  of  plate 

1.,  1.,  0.  xorner  #1 

-1.,  l.,0.  xorner  #2 

-l.,-l.,0.  xorner  #3 

1., -l.,0.  xorner  #4. 

See  elsewhere  for  further  details  on  how  to  number  the  corners.  Note  that  the  program 
will  keep  increasing  the  number  of  plates  in  the  solution  by  the  number  of  calls  to  this 
command  unless  the  NP  or  NX  commands  are  called  to  reinitialize  the  plate  geometry. 
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*3  (-I.-I.O) 


Figure  4.3:  Definition  of  flat  plate  geometry. 


4.12  Command  RT:  Rotate- Translate  Geometry 

This  command  enables  the  user  to  translate  and/or  rotate  the  coordinate  system  used  to 
define  the  input  data  in  order  to  simplify  the  specification  of  the  plate,  cylinder,  and  source 
geometries.  The  geometry  is  illustrated  in  Figure  4.4. 


READ:  (TR(N),N=1,3) 


_ where _ 

TR(N)  This  is  a  dimensioned  real  variable.  It  is  used  to  specify  the  origin  of 
the  new  coordinate  system  to  be  used  to  input  the  data  for  the  source  or 
the  scattering  structures.  It  is  input  on  a  single  line  with  the  real  numbers 
being  the  x,y,z  coordinates  of  the  new  origin  which  corresponds  to  N=l,2,3, 
respectively. 


READ:  THZP,  PHZP,  THXP,  PHXP 


- where _ 

THZP, PHZP  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  z-axis  of  the  new  coordinate  system  as  if  it  was  a 
radial  vector  in  the  reference  coordinate  system. 

THXP, PHXP  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  x-axis  of  the  new  coordinate  system  as  if  it  w as  a 
radial  vector  in  the  reference  coordinate  system. 

The  new  x-axis  and  z-axis  must  be  defined  orthogonal  to  each  other.  The  new  y-axis  is 
found  from  the  cross  product  of  the  x-  and  z-axis.  All  the  subsequent  inputs  will  be  made 
relative  to  this  new  coordinate  system,  which  is  shown  as  xt>  !/«>*:,  unless  command  RT  is 
called  again  and  redefined. 
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Figure  4.4:  Definition  of  rotate*tr  ansi  ate  coordinate  system  geometry. 


4.13  Command  SG:  Source  Geometry 

This  command  enables  the  user  to  specify  the  location  and  type  of  source  to  used.  The 
geometry  is  illustrated  in  Figure  4.5  and  4.6.  One  call  to  this  command  defines  one  source. 
The  number  of  sources  in  the  problem  are  automatically  counted  by  the  number  of  calls  to 
this  command  and  the  SA  command. 


READ:  (XSS(N,MS),N=1,3) 


_ where _ 

XSS(N,MS)  This  is  a  doubly  dimensioned  real  array  which  is  used  to  define 
the  x,y,z  location  of  the  MSth  element  in  the  definition  coordinate  system. 
Again,  a  single  line  of  data  contains  the  x,y,z  (N=l,2,3)  locations. 


READ:  THSZ,  PHSZ,  THSX,  PHSX 


_ where _ 

THSZ, PHSZ  These  are  real  variables  which  are  used  to  define  the  orientation 
of  the  MSth  element  in  the  definition  coordinate  system.  They  are  input  in 
degrees  as  Bpherical  angles  that  define  a  radial  direction  which  is  parallel  to 
the  MSth  current  flow  for  a  dipole  antenna  or  which  is  parallel  to  the  length 
of  an  aperture  antenna. 

THSX, PHSX  These  are  real  variables  which  are  used  to  define  the  orientation 
of  the  MSth  element  in  the  definition  coordinate  system.  They  are  input 
in  degrees  as  spherical  angles  that  define  a  radial  direction  which  is  parallel 
to  the  MSth  elements  aperture  width  or  which  is  parallel  to  a  slot’s  width. 
For  a  dipole  antenna,  these  angles  can  be  made  in  a  convenient  direction. 

The  x-axis  and  z-axis  specified  by  these  angles  must  be  defined  orthogonal  to 

each  other.  The  y-axis  is  found  by  the  cross  product  of  the  x-  and  z-axes. 


READ:  IMS(MS),  HS(MS),  HAWS(MS) 

_ where _ 

IMS(MS)  This  is  an  integer  array  which  is  used  to  define  the  MSth  element’s 
source  type.  The  details  of  the  different  types  of  sources  are  given  elsewhere. 
The  designations  are  defined  as  follows: 

IMS(MS)<0  for  an  electric  element 
IMS(MS)>0  for  a  magnetic  element 
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|IMS(MS)|=1  for  a  uniform  current  distribution 
|IMS(MS)|=2  for  a  piece-wise  sinusoidal  distribution 
|IMS(MS)|=3  for  a  TE01  cosine  current  distribution 

HS(MS)  This  is  a  real  array  which  is  used  to  input  the  length  of  the  MSth 
element. 

HAWS(MS)  This  is  a  real  array  which  is  used  to  input  the  width  of  the  MSth 
element  in  the  case  of  an  aperture  antenna.  If  HAWS(MS)=0,  then  it  is 
assumed  to  be  a  dipole. 

Note  that  the  units  of  the  variable  HS(MS)  and  HAWS(MS)  can  be  specified  by 
the  US  command.  If  wavelength  is  chosen  as  the  units  then  all  the  sources  must 
be  specified  in  wavelengths. 

READ:  WMS,  WPS 

_ where _ 

WMS, WPS  These  are  real  variables  used  to  define  the  excitation  associated 
with  the  MSth  element.  The  magnitude  is  given  by  WMS  and  the  phase  in 
degrees  by  WPS. 

Note  that  the  program  will  keep  increasing  the  number  of  sources  in  the  solution  by  the 
number  of  calls  to  this  command  unless  the  NS  or  NX  commands  are  called  to  reinitialize 
the  source  geometry. 


39 


!2» 


Definition  of  source  geometry  for  dipole  antennas. 


40 


4.14  Command  UF:  Scale  Factor 


This  command  enables  the  user  to  scale  the  linear  dimensions  that  follow  the  command  by 
the  factor  specified. 


READ:  UNITF 

_ where _ 

UNITF  This  is  a  real  variable  that  is  used  as  a  scale  factor  for  all  the  linear 
dimensions  that  follow  the  command. 


4.15  Command  UN:  Units  of  Geometry 

This  command  enables  the  user  to  specify  the  units  of  all  the  linear  dimensions  to  be  input 
after  the  command  is  called.  (The  exceptions  are  the  source  length  HS  and  width  HAWS, 
and  receiver  length  HR  and  width  HAWR,  see  command  US.) 


READ:  IUNIT 

_ where _ 

IUNIT  This  is  an  integer  variable  that  indicates  the  units  for  the  input  data 
that  follows,  such  that 

1=  meters 
2=  feet 
3=  inches 

4.16  Command  US:  Units  of  Source 

This  command  enables  the  user  to  specify  the  units  of  the  source  length  HS  and  width 
HAWS  or  receiver  length  HR  and  width  HAWR  to  be  input  after  the  command  is  called. 
These  variables  are  in  the  commands  SG,  SA,  RG,  and  RA. 


READ:  IUNST 

_ where _ 

IUNST  This  is  an  integer  variable  that  indicates  the  units  for  the  input  data 
HS,  HAWS,  HR,  HAWR  that  follows,  such  that  if 
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0=  wavelengths 
1=  meters 
2=  feet 
3=  inches 

Note  that  if  the  units  are  specified  to  be  wavelengths  for  one  source  it  must  be 
lengths  for  all  the  sources  specified. 


wave- 
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4.17  Command  VF:  Far  Zone  Volumetric  Pattern 

This  command  enables  the  user  to  define  the  far  zone  volumetric  pattern  coordinate  system, 
the  pattern  cut,  and  the  angular  range  that  is  desired.  The  geometry  is  illustrated  in 
Figure  4.7. 


READ:  THCZ,  PHCZ,  THCX,  PHCX 


_ where - 

THCZ, PHCZ  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  zp-axis  of  the  pattern  coordinate  system  as  if  it  was 
a  radial  vector  in  the  reference  coordinate  system. 

THCX, PHCX  These  are  real  variables.  They  are  input  in  degrees  as  spherical 
angles  that  define  the  zp-axis  of  the  pattern  coordinate  system  as  if  it  was 
a  radial  vector  in  the  reference  coordinate  system. 

Note  that  the  new  ip-axis  and  zp-axis  must  be  defined  orthogonal  to  each  other. 

The  new  yp-axis  is  found  from  the  cross  product  of  the  zp-  and  zp- axes. 

READ:  LCNPAT,  TPPD,  TPPV,  NPV 


_ where - 

LCNPAT  This  is  a  logical  variable  that  defines  the  pattern  cut  desired,  such 
that 

T=  The  theta  angle  is  held  fixed  while  the  phi  angle  is  varied.  The  theta 
angle  will  then  be  incremented  and  another  cut  will  be  calculated. 

F=  The  phi  angle  is  held  fixed  while  the  theta  angle  is  varied.  The  phi 
angle  will  then  be  incremented  and  another  cut  will  be  calculated. 

TPPD  This  is  a  real  variable.  It  defines  the  starting  angle  of  the  “fixed”  angle 
specified  by  LCNPAT. 

TPPV  This  is  a  real  variable.  It  defines  the  incremental  angle  of  the  “fixed” 
angle  specified  by  LCNPAT. 

NPV  This  is  a  integer  variable.  It  defines  the  number  of  pattern  points  of  the 
“fixed"  angle  specified  by  LCNPAT. 


READ:  TPPS,  TPPI,  NPN 


_ where - 

TPPS  This  is  a  real  variable.  It  defines  the  starting  angle  of  the  “varying” 
angle  specified  by  LCNPAT. 
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TPPI  This  is  a  real  variable.  It  defines  the  incremental  angle  of  the  “varying” 
angle  specified  by  LCNPAT. 

NPN  This  is  a  integer  variable.  It  defines  the  anumber  of  pattern  points  of  the 
“varying”  angle  specified  by  LCNPAT. 
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b.  Conic  pattern  cut,  ICNPAT=.TRUE . ,  TPPD=7HP. 


c.  Constant  Phi  pattern  cut,  LCNPAT=. FALSE. ,  TPPD=PHP. 


Figure  4.7;  Definition  of  volumetric  pattern  coordinate  system. 
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4.18  Command  XQ:  Execute  Code 

This  command  is  used  to  execute  the  code  so  that  the  results  may  be  computed.  After 
execution  the  code  returns  for  another  possible  command  word. 
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Chapter  5 


Interactive  Commands 


5.1  Overview 

Facilities  for  interactive  programs  vary  greatly  from  one  operating  system  to  the  next  with 
little  or  no  standardization  between  systems.  In  spite  of  this,  it  was  felt  that  the  users  of 
this  code  would  benefit  immensely  from  an  interactive  mode  of  operation.  In  order  for  the 
code  to  have  interactive  capability  without  an  excessive  amount  of  development  time,  the 
developers  have  used  many  features  of  the  DEC  VAX/VMS  operating  system.  Since  many 
engineers  presently  have  access  to  the  DEC  VAX,  it  is  felt  that  this  will  lead  to  reasonable 
transportability  of  the  interactive  mode  for  this  code. 

This  decision  has  several  ramifications  for  users  of  the  SHADOW  code.  It  means  that  the 
commands  described  in  this  chapter  do  not  exist  on  computers  that  don’t  run  VAX/VMS 
Version  4.0  or  greater.  It  also  means  that  this  code  has  been  separated  into  two  parts,  one 
standard  FORTRAN  77  and  the  other  VMS  dependent  containing  the  interactive  facility, 
with  a  slightly  different  main  program  for  the  non-interactive  code. 

5.2  Command  Descriptions 

This  section  describes  the  interactive  SHADOW  commands  in  detail  complete  with  exam¬ 
ples  for  each.  The  syntax  of  the  interactive  commands  is  that  of  the  Digital  Command 
Language  or  DCL  and  for  obvious  reasons  familiarity  with  the  syntax  of  DCL  is  assumed 
throughout  this  chapter.  For  details  about  the  utilities  used  to  perform  this  DCL  style  com¬ 
mand  parsing,  readers  are  referred  to  the  VMS  documentation  concerning  the  Command 
Definition  Utility  or  CDU. 
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EXIT 

Causes  the  program  to  exit. 

FORMAT 

EXIT 

Command  Qualifiers  Defaults 

None .  None . 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

All  output  files  are  closed,  and  control  is  returned  to  DCL. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

$  RUN  SHADOW 
SHADOW> 


SHADOW>  EXIT 

% 


This  example  shows  how  to  exit  the  program. 


HELP 

Displays  information  about  SHADOW  commands  or  help  text  from 
any  other  library  you  specify. 


FORMAT 

HELP  help-item 

Command  Qualifiers 
/LIBRARY ["library-name] 

Defaults 

/LIB-SYS$DISK: [] SHADOW 

restrictions 

The  indicated  help  files  must  exist. 

prompts 

None. 

command 

parameters 

help-item 

The  help-item  is  a  keyword  which  is 

the  item  you  want  help  on. 

DESCRIPTION  The  SHADOW  help  command  adheres  to  the  conventions  of  VMS 
help  libraries  in  form  and  content. 


COMMAND 

/LIBRARY [-library-name] 

QUALIFIERS 

/NOLIBRARY 

Controls  whether  an  alternate  help  library  will  be  used  in  the  search 
for  topics.  This  qualifier  must  appear  immediately  after  the  HELP 
command  or  it  will  be  interpreted  as  part  of  the  help-item.  If  you 
specify  /NOLIBRARY  then  no  library  will  be  searched. 

EXAMPLES 

SHAD0W>  HELP  SET  OUTPUT 


.  (SET  OUTPUT  help  message) 

Topic?  EXIT 


.  (EXIT  help  meBB&ge) 


Topic?  <RETURN> 

SHAD0W>  HELP/LIBR-HELPLIB  LOGOUT 

.  (LOGOUT  help  message  from  the  system  help  library) 
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Topic?  <RETURN> 
SHAD0W> 


The  above  examples  show  how  to  get  help  about  shadow  topics  and 
how  to  access  other  VMS  help  libraries  with  the  HELP  command 
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SHADOW 

Initiates  the  obscuration  calculation  for  the  current  antenna  location 
and  input  geometry. 

FORMAT 

SHADOW 

Command  Qualifiers  Defaults 

None .  None . 

restrictions 

None.  Command  may  be  abbreviated  “S”. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  commands  which  alter  parameters,  such  as  SET  WINDOW  and 
SET  ANTENNA  do  not  initiate  shadowing  calculations  automati- 
cally.  This  is  to  avoid  redundant  calculations  when  several  param¬ 
eters  are  changed  at  once.  Once  desired  parameters  are  set,  the 
SHADOW  command  performs  the  obscuration  calculations  and  out¬ 
puts  the  result. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 


SHADOW>  SET  ANTENNA 

Input  antenna  location  in  meters:  11,22,32 

Antenna  in  RCS  (meters):  11.00000  22.00000  32.00000 

Definit  system  (meters):  11.00000  22.00000  32.00000 

8HAD0W>  SHAD 
Working. . . 

SHAD0W>  SET  ANTENNA 

Input  antenna  location  in  meters:  10,20,30 

Antenna  in  RCS  (meterB) :  10.00000  20.00000  30.00000 

Definit  system  (meters):  10.00000  20.00000  30.00000 

SHAD0W>  S 
Working . . . 

SHAD0W> 
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The  above  commands  all  calculate  the  projected  shadows  for  two 
different  antenna  locations  on  given  input  geometry.  The  resultB  all 
go  into  the  same  output  file,  because  no  “SET  OUTPUT”  command 
was  executed  in  between  “SHADOW”  commands. 
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SPAWN 


Creates  a  subprocess  for  executing  DCL  commands  without  exiting 
the  SHADOW  program.  This  command  is  useful  for  executing  DCL 
commands  without  reinitializing  the  context  of  a  SHADOW  program 
session. 


FORMAT 

SPAWN  command- string 

Command  Qualifiers  Defaults 

None .  None . 

restrictions 

A  few  restrictions  are  imposed  by  VMS. 

oThe  RESOURCE.WAIT  state  must  be  enabled  for  the  spawning 
process. 

oRequires  TMPMBX  or  PRMMBX  user  privileges. 
oSPAWN  does  not  manage  terminal  characteristics. 

Command  may  be  abreviated  “$  ”,  where  the  blank  after  the  $  is 

necessary. 

prompts 

None. 

command 

parameters 

command-string 

Specifies  a  DCL  command  string  to  be  executed  in  the  context  of 
the  subprocess.  SHADOW  will  wait  until  the  subprocess  completes 
executing.  If  command-string  is  blank,  the  subprocess  will  prompt 
for  commands  repeatedly. 

DESCRIPTION 

The  details  of  the  spawn  command  are  exactly  as  documented  in  the 
DCL  dictionary,  volume  2  of  the  VAX/VMS  documentation  set. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SPAWN  SHOW  USERS 


VAX/VMS  Interactive  Users 
11-DEC-1Q86  08:34:18.72 
Total  number  of  interactive  users  *  B 
Username  Process  Name  PID  Terminal 
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CWP6148 

CWP6148 

00000891 

VT1023 

TTAO 

DF6148 

DF6148 

00000 AF A 

VT1086 

TTC4 

EHNOOO 

EHNOOO 

000009F8 

VT1086 

TTB7 

LT6199 

LT6199 

OOOOOAEE 

VT1081 

TTA7 

WE6148 

WE6148 

00000973 

VT1082 

TTB2 

SHADOW>  SPAWN 
$  SHO  TIME 

ll-DEC-1986  08:36:13 
$  LOG 

LT6199.1  job  terminated  at  ll-DEC-1985  08:36:20.90 
SHAD0W> 


The  above  spawn  command  illustrate  how  DCL  commands  may  be 
executed  without  exiting  the  SHADOW  program. 


SET  ANTENNA-LOCATION 

Determines  the  location  of  the  source  point,  or  the  center  of  the 
far-zone  sphere  for  subsequent  shadowing  calculations. 

FORMAT 

SET  ANTENNA 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

Its  recommended  that  the  antenna  not  be  placed  in  the  interior  of  a 
cylinder.  Unusual  results  may  occur  if  this  is  done. 

prompts 

Input  antenna  location  in  meters: 

Input  antenna  location  in  feet  : 

Input  antenna  location  in  inches: 

command 

parameters 

None. 

DESCRIPTION 

The  antenna  location  consists  of  the  (x,y,z)  components  of  a  vector 
in  the  current  units  and  definition  coordinate  system,  set  by  the  SET 
UNITS  and  the  SET  COORDINATE  commands,  respectively.  The 
command  does  NOT  accept  the  antenna  location  on  the  command 
line,  but  prompts  for  it  instead.  The  input  syntax  for  the  numbers 
is  that  of  an  unformatted  FORTRAN  read. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 


SHADOW>  SET  ANTENNA 

Input  antenna  location  in  neterB:  10,20,30 

Antenna  in  ECS  (neters) :  10.00000  20.00000  30.00000 

Deflnit  system  (meters):  10.00000  20.00000  30.00000 


This  example  sets  the  antenna  location  to  10. ,20. ,30.  (x,y,z)  in  the 
current  units,  which  are  meters. 
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EXAMPLES 


SHADOW>  SET  UNIT  FEET 
SHADOW>  SET  ANT 

Input  antenna  location  in  feet  :  10,20,30 

Antenna  in  RCS  (meters):  3.04800  6.09600  9.14400 

Delinit  system  (feet  ):  10.00000  20.00000  30.00000 

SHAD0W> 


This  example  shows  how  the  antenna  location  is  interpreted  in  the 
units  of  feet. 
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SET  COORDINATES 

Sets  up  a  coordinate  transformation  to  be  applied  to  subsequent 
geometry. 

FORMAT 

SET  COORDINATES 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

The  specified  coordinate  axes  must  be  orthogonal  to  one  another. 

prompts 

Please  input  a  translation  vector  in  feet: 

Please  input  THZP.PHZP.THXP.PHXP  in  degrees: 

command 

parameters 

None. 

DESCRIPTION 

The  antenna  location  may  be  specified  relative  to  an  alternative  co¬ 
ordinate  system.  This  coordinate  system  is  established  via  the  SET 
COORDINATES  command.  It  does  not  affect  the  pattern  cut  coor¬ 
dinate  system. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 


SHADOW>  SET  COOR 

Please  input  a  translation  vector  in  feet  :  100,200,300 
Please  input  THZP , PHZP , THXP , PHXP  in  degrees:  0,  -64,  266.6,  46 

*  The  following  rotations  are  used  lor  ALL  subsequent  inputs:  * 

*  VRS(l.l)-  -0.70711  VRS(1,2)-  -0.70711  VRS(1,3)-  0.00000  * 

*  VRS(2,1)»  0.70711  VRS(2,2)»  -0.70711  VRS(2,3)»  0.00000  * 

*  VRS(3,1)“  0.00000  VRS(3,2)*  0.00000  VRS(3,3)»  1.00000  * 


The  above  example  shows  how  a  default  coordinate  system  may  be 
established.  The  program  echoes  the  established  coordinate  axes. 
These  may  be  re-examined  at  any  time  with  the  SHOW  COORDI¬ 
NATE  command. 
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SET  FILL.CHARACTER 

Allows  selection  of  the  characters  used  to  fill  the  output.  Can  be 
used  to  highlight  particular  elements  of  a  geometry. 


FORMAT 

SET  FILL  [tag-character] 

Command  Qualifiers  Defaults 

'/SEQUENTIAL  None. 

/PLATE® (num[, char])  None. 

/CYLINDER® (num[, char])  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

tag-character 

Is  any  single  ASCII  character.  If  a  lowercase  letter  is  desired,  enclose 
the  letter  in  double  quotes,  i.e.  “a”.  The  default  is  “X”. 

DESCRIPTION 

In  order  to  better  trace  portions  of  a  geometry  through  the  shadow¬ 
ing  process,  the  ability  to  tag  a  particular  cylinder  or  plate  has  been 
added.  The  tag  setting  remains  in  effect  until  altered  by  a  subsequent 
“SET  FILL”  command.  The  highlighted  plate  or  cylinder  appears  in 
its  entirety  in  the  output  regardless  of  its  actual  position  in  the  hi¬ 
erarchy  of  obscuration.  This  allows  the  user  to  be  absolutely  certain 
of  the  shadowing  caused  by  the  particular  highlighted  geometry. 

There  are  three  tagging  modes  available.  One  is  sequential  tagging. 
In  this  mode,  the  code  attempts  to  assign  a  unique  character  in  the 
output  to  each  plate/cylinder  in  the  input.  Plates  are  numbered 
beginning  with  “A”  and  increasing  through  the  ASCII  character  se¬ 
quence,  and  cylinders  are  treated  the  same  way  beginning  with  “1”. 

The  second  mode  causes  all  parts  of  the  geometry  to  be  shaded  with 
a  single  specified  character  such  as  “X” .  In  this  total  obscuration 
mode,  any  one  part  of  the  input  geometry  is  not  easily  identified  — 
rather  the  the  total  obscuration  is  presented  homogeneously.  It  is 
specified  using  SET  FILL  without  qualifiers.  The  third  mode  is  the 
same  as  the  second  mode,  but  with  the  added  feature  of  one  single 
plate  (or  cylinder)  highlighted  with  a  different  character.  In  this 
mode  the  relation  of  one  part  of  the  geometry  to  the  rest  is  clearly 


59 


visible.  This  mode  can  be  very  helpful  when  isolating  particular 
parts  of  a  geometry  that  are  shadowing  the  source. 

COMMAND  /SEQUENTIAL 

QUALIFIERS  /SEQUENTIAL 

The  /SEQUENTIAL  qualifier  selects  the  first  mode  of  obscuration, 
sequential  tagging  of  the  input  geometry.  This  qualifier  may  not  be 
specified  with  a  tag-character  parameter  nor  with  any  of  the  other 
qualifiers. 

/PLATE=num 
/PLATE= (num , char) 

The  /PLATE  qualifier  selects  the  third  mode  of  obscuration,  ho¬ 
mogenous  tagging  with  highlighting  of  a  particular  plate. 

The  num  argument  is  the  number  of  the  plate  to  be  tagged.  It  is  a 
required  argument.  The  char  argument  is  the  ASCII  character  to  be 
used  when  tagging  the  plate.  It  is  optional,  and  defaults  to  “P”  if 
unspecified. 

This  qualifier  may  not  be  specified  in  combination  with  other  quali¬ 
fiers.  It  is  mutually  exclusive  with  the  /CYLINDER  qualifier. 
/CYLINDER=num 
/CYLINDER= (num. char) 

The  /CYLINDER  qualifier  selects  the  third  mode  of  obscuration, 
homogenous  tagging  with  highlighting  of  a  particular  cylinder.  It 
works  exactly  like  the  /PLATE  qualifier. 

The  num  argument  is  the  number  of  the  cylinder  to  be  tagged.  It 
is  a  required  argument.  The  char  argument  is  the  ASCII  character 
to  be  used  when  tagging  the  cylinder.  It  is  optional,  and  defaults  to 
“C”  if  unspecified. 

This  qualifier  may  not  be  specified  in  combination  with  other  quali¬ 
fiers.  It  is  mutually  exclusive  with  the  /PLATE  qualifier. 

EXAMPLES 

SHAD0W>  set  fill 

No  individual  plates/cylinders  are  tagged 
All  geometry  marked  by  [K] 

SHADQW>  set  fill  $ 

No  individual  plates/cylinders  are  tagged 
All  geometry  marked  by  [$] 

SHAD0W>  set  fill  *  /plate*6 
Plate  6  is  tagged  with  [P] 

60 


All  other  geometry  tagged  with  [*] 

SHADOW>  set  fill  *  /plate=(7,y.) 

Plate  7  is  tagged  with  [%] 

All  other  geometry  tagged  with  [*] 

SHAD0W>  set  fill  Q  /cyl*(2,$) 

Cylinder  2  tagged  with  [$] 

All  other  geometry  tagged  with  [Q] 

SHAD0W>  set  fill  /plate=9  /cyl=4 

XCLI-W-CONFLICT,  illegal  combination  of  command  elements 
SHADOW>  set  fill  Q  /cyl=(2,$)  /seq 

%CLI-W-MAXPARM,  too  many  parameters  -  reenter  command  with  fewer  parameters 

SHADOW?  set  fill  /seq  !  Q  /cyl=(2,$)  /seq 
All  cylinders/plates  sequentially  tagged 


The  above  examples  are  obvious  except  possibly  the  last  three.  They 
show  that  the  qualifiers  are  not  allowed  in  combination,  that  the  /SE¬ 
QUENTIAL  qualifier  does  not  allow  specification  of  a  fill  character, 
and  that  the  DCL  syntax  ignores  everything  after  an  exclamation 
point. 
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SET  INPUT-SET 


Reads  an  input  set  from  a  named  file 


FORMAT 

SET  INPUT-SET  filename 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

The  named  input  file  must  exist. 

prompts 

input  set: 

command 

parameters 

filename 

The  name  of  the  input  set.  It  may  be  any  valid  VMS  filename, 
including  a  logical  name.  The  default  filetype  is  .INP. 

DESCRIPTION 

The  set  output  command  has  the  dual  role  of  designating  an  input 
file  and  simultaneously  causing  that  input  set  to  be  read  and  pre¬ 
pared  for  subsequent  shadow  commands.  The  current  output  files 
are  NOT  affected  by  this  command  so  that  several  outputs  may  be 
concatenated.  Normally  though,  this  command  would  be  entered 
after  a  SET  OUTPUT  command. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHAD0W>  SET  OUT  AN5S1 

Plotting  file  is:  USER1: [RJM.NAS] AN5S1 .PLT;1 
Printer  file  is:  _NLAO : [] F0R007 . DAT ; 

Input  echo  file:  USER1 : [RJM.NAS] ANBS1. LIS; 1 
SHADOW>  SET  INPUT  AN5S1 
The  current  input  set  is 
USER1: [RJM.NAS] AN5S1.INP;! 


The  SET  OUTPUT  command  is  used  to  set  the  output  files  -  the 
printer  output  is  discarded  by  default.  Tht-  input  set  AN5S1.INP  is 
then  read  and  processed  by  the  SET  INPUT  command. 
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SET  KEYPAD-MODE 

Causes  the  keypad  state  to  change  to  non-numeric. 


FORMAT 

SET  [NO] KEYPAD 

Command  Qualifiers 

Defaults 

None. 

None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION  The  keypad  of  most  DEC  terminals  can  be  in  one  of  two  states,  nu¬ 
meric  mode  or  keypad  mode.  In  numeric  mode,  the  keypad  buttons 
represent  the  numbers  and  symbols  printed  on  the  keys.  In  keypad 
mode,  the  keys  may  be  defined  to  provide  functions,  in  much  the 
same  way  as  they  do  in  DCL. 

SET  KEYPAD  enables  the  defined-key  feature  of  SHADOW,  and 
SET  NOKEYPAD  returns  the  keypad  to  numeric-entry  mode. 

The  keypad  definitions  are  made  in  a  session  startup  file  called 
SHADOW. KPD;  in  the  current  default  directory. 


COMMAND 

QUALIFIERS 


EXAMPLES 


None. 


SHAD0tf>  SET  KEYPAD 

The  keyboard  is  in  keypad  node . 

SHAD0W>  SET  NOKEYPAD 

The  keyboard  is  not  in  keypad  mode . 
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SET  OUTPUT 


Determines  the  names  of  new  output  files  and  closes  current  output 
files. 


FORMAT 

SET  OUTPUT  filename 

Command  Qualifiers 
/PLOTTABLE 
/PRINTABLE 
/ECHOING 

Defaults 

/PLOTTABLE 

/NOPRINTABLE 

/ECHOING 

restrictions 

The  filename  must  be  a 

valid  VMS  filename. 

prompts 

.filename: 

command 

parameters 

filename 

The  name(s)  of  the  newly  created  output  file(s). 

DESCRIPTION  There  are  three  different  outputs  from  the  shadow  program.  One 
is  an  echo  of  the  input  set  from  the  input  processor.  Another  is 
a  line  printer  output  of  the  shadow  map.  The  third  is  an  output 
suitable  for  input  to  a  separate  plotting  program.  The  set  output 
command  opens  these  files  for  the  code.  The  name  of  the  file  opened 
is  specified  as  the  filename  parameter.  The  filetypes  are  set  by  the 
command  automatically,  so  that  only  the  filename  need  be  specified. 


COMMAND  /PLOTTABLE 

QUALIFIERS  /NOPLUTTABLE 

Causes  a  plottable  output  file  to  be  produced.  This  is  the  default. 
Specifying  /NOPLOT  will  override  this  default. 

/PRINTABLE 

/NOPRINTABLE 

Causes  an  output  file  to  be  produced  which  is  suitable  for  printing 
on  a  standard  line  printer.  /NOPRINT  is  the  default.  Specifying 
/PRINT  will  override  this  default. 

/ECHOING 

/NOECHOING 

Causes  the  input  echo  to  be  saved  in  a  file  when  a  new  input  set  is 
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read.  /ECHOING  is  the  default.  Specifying /NOECHO  will  override 
this  default. 


EXAMPLES 

SHAD0W>  SET  OUT  AN5S1 

Plotting  file  is:  USER1 : [R JM . NAS] AN6S1 . PLT ; 1 
Printer  file  is:  _NLAO : [] F0ROO7 . DAT ; 

Input  echo  file:  USER1 : [RJM . NAS] AN5S1 .LIS; 1 
SHAD0W>  SET  OUT  AN5S1  /PRINT 
Plotting  file  is:  USER1 : [RJM.NAS] AN5S1 .PLT; 2 
Printer  file  is:  USER1: [RJM.NAS]AN5S1.PRT;1 
Input  echo  file:  USER1 : [RJM . NAS] AN5S1 . LIS ; 2 
SHADOW>  SET  OUT  AN6S1  /NOPLOT  /NOECHO  /PRINT 
Plotting  file  is:  _NLAO: [] F0R010.DAT; 

Printer  file  is:  USER1 : [RJM.NAS]AN5S1 ,PRT;2 
Input  echo  file:  _NLAO: [] F0R006.DAT; 

SHADOW>  SET  OUT  ANBS1 

Plotting  file  is:  USER1 : [RJM.NAS]AN5S1 .PLT; 3 
Printer  file  is:  _NLAO : [] F0R007 . DAT ; 

Input  echo  file:  USER1 : [RJM.NAS] AN5S1 .LIS; 3 


The  above  examples  show  the  operation  of  the  SET  OUTPUT  com¬ 
mand.  Note  that  the  printer  file  is  not  produced  by  default,  and  the 
device  NLAO:  (the  null  device)  is  where  the  output  is  discarded. 
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SET  PATTERN-CUT 

Specifies  the  pattern  cut  coordinate  system. 

FORMAT 

SET  PATTERN -CUT 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

The  specified  coordinate  axes  must  be  orthogonal. 

prompts 

Please  input  THZP.PHZP.THXP.PHXP  in  degrees: 

command 

parameters 

None. 

DESCRIPTION 

The  shadow  map  window  is  specified  relative  to  the  pattern-cut  co¬ 
ordinate  system.  This  system  can  be  changed  to  facilitate  easier 
specification  of  this  window  relative  to  the  blocking  object  coordi¬ 
nate  system. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOVO  SET  PAT 

Please  input  THZP . PHZP . THXP , PHXP  in  degrees:  0,  -64.  265.6,  46.  0.  136 


*  The  following  rotations  are  used  for  ALL  subsequent  inputs:  * 

*  VPC(l.l)-  -0.70711  VPC(1 ,2)*  -0.70711  VPC(1,3)«  0.00000  * 

*  VPC(2 , 1)*  0.70711  VPC(2,2)«  -0. 70711  VPC(2,3)-  0.00000  * 

*  VPC(3,1)»  0.00000  VPC(3,2)«  0.00000  VPC(3,3)«=  1.00000  * 


The  pattern-cut  coordinate  system  shown  has  been  set  up. 


SET  SCALE-FACTOR 

Sets  a  new  value  for  the  uniform  scale  factor. 


FORMAT 

SET  SCALE-FACTOR 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

The  scale  factor  may  not  be  specified  on  the  command  line. 

prompts 

Please  input  a  uniform  scale  factor: 

command 

parameters 

None. 

DESCRIPTION 

In  order  to  allow  for  more  flexibility  in  specifying  input,  an  additional 
scale  factor  may  be  applied  to  numerical  inputs.  The  default  value 
of  this  command  is  1. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 
SHADOW>  SET  SCALE 

Please  input  a  uniform  scale  factor:  5.5 
The  uniform  scale  factor  is  6.60000000 


The  uniform  scale  factor  has  been  changed  to  5.5. 


SET  UNITS 

Sets  the  default  units  for  the  entry  of  numeric  values.  Allowable 
units  are  Meters,  Feet,  Inches. 


FORMAT 

SET  UNITS  keyword 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

.inches,  feet,  or  meters: 

command 

parameters 

Keyword  may  be  one  of  the  following: 

O  METERS 

O  FEET 

o  INCHES 

DESCRIPTION 

When  the  antenna  location  is  set,  these  are  the  units  applied  to  the 
specified  position.  Internal  calculations  are  always  done  in  meterB. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SET  UNI 

FEET 

This  example  sets  the  default  units  to  feet. 
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SET  WINDOW 

Sets  parameters  for  windowing  of  the  output. 

FORMAT 

SET  WINDOW 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

The  maximum  span  of  theta  must  be  less  than  180  degrees.  The 
maximum  span  of  phi  must  be  less  than  360  degrees.  The  maximum 
resolution  is  a  function  of  the  specified  range  for  both  theta  and  phi. 
None  of  these  parameters  is  specified  on  the  command  line. 

prompts 

Please  enter  a  new  range  for  theta  (lower, higher): 

Please  enter  a  new  THETA  resolution  in  degrees/pixel: 

Please  enter  a  new  range  for  phi  (lower, higher): 

Please  enter  a  new  PHI  resolution  in  degrees/pixel: 

command 

parameters 

None. 

DESCRIPTION 

In  order  to  be  more  flexible  on  the  presentation  of  the  output,  a  win¬ 
dowing  feature  was  included  so  that  portions  of  theta-phi  space  may 
be  mapped  onto  a  larger  output  surface.  The  set  window  command 
does  this  by  prompting  for  the  desired  range  of  displayed  theta  and 
phi,  and  the  desired  levels  of  resolution.  The  default  window  displays 
the  entire  range  of  theta  and  phi  at  a  resolution  of  2  degrees/pixel 
in  both  directions. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SET  WINDOW 

The  current  range  of  theta  in  degrees  is  0 . OOOOOOOE+OO  to  180.0000 
with  a  resolution  ol  2.000000  degreeB/pixel. 

The  current  range  of  phi  in  degrees  iB  0 . OOOOOOOE+OO  to  360.0000 
with  a  resolution  of  2.000000  degrees/pixel. 

Please  enter  a  new  range  for  theta  (lower .higher) :  30,40 
Please  enter  a  new  THETA  resolution  in  degreeB/pixel:  .6 
Please  enter  a  new  range  for  phi  (lower .higher) :  46,00 
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Please  enter  a  new  PHI  resolution  in  degrees/pixel :  .6 

The  current  range  of  theta  in  degrees  iB  30.00000  to 
with  a  resolution  of  0.6000000  degrees/pixel. 

The  current  range  of  phi  in  degrees  is  46.00000  to 
with  a  resolution  of  0.6000000  degrees/pixel . 


40.00000 

©0.00000 


The  set  window  command  above  first  displays  the  current  window 
settings  (which  also  happen  to  be  the  default  settings),  then  prompts 
for  new  values.  The  new  values  are  then  also  shown. 


SHOW  ANTENNA.LOCATION 

Display  the  current  antenna  position. 


FORMAT 

SHOW  ANTENNA-LOCATION 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  antenna  location  is  displayed  in  both  the  current  default  units 
and  the  Reference  Coordinate  System. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SHO  ANT 

Antenna  in  RCS  (meters):  2.00000  3.00000  4.00000 

Definit  system  (meters):  2.00000  3.00000  4.00000 


This  command  displays  the  current  antenna  location  in  both  the 
reference  coordinate  systems  (RCS)  and  the  current  default  units, 
which  are  also  meters  in  this  example. 
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SHOW  COORDINATES 

Displays  the  default  transformation  applied  to  antenna  placement 
commands. 


FORMAT 

SHOW  COORDINATES 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  antenna  location  is  input  in  terms  of  an  antenna  coordinate 
system.  This  command  displays  the  orientation  of  this  system. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 


SHAD0W>  SHO  COORD 


VRS (1,1)* 

1 . 00000 

VRSCl  ,2)*= 

0 . 00000 

VRS(1 ,3)*= 

0.00000 

VRSC2.1)- 

0.00000 

VRS(2 , 2)* 

1.00000 

VRS(2,3)« 

0 . 00000 

VRS (3,1)" 

0.00000 

VRS(3 ,2)* 

0.00000 

VRS(3,3)» 

1.00000 

* 


* 

* 


In  this  example,  the  antenna  coordinate  system  is  coincident  with 
the  reference  coordinate  system. 
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SHOW  FILL.CHARACTER 

Displays  the  current  output  fill  modes. 


FORMAT 

SHOW  FILL 

Command  Qualifiers 

None. 

Defaults 

None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  output  may  be  generated  in  one 
description  of  the  possible  modes,  see 

of  three  modes.  For  a  detailed 
the  SET  FILL  command. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SHOW  FILL 

Plate  6  is  tagged  with  [Pj 

All  other  geometry  tagged  with  [*] 


In  the  above  example,  the  sixth  plate  of  the  input  set  is  tagged  with 
the  ASCII  character  “P”.  The  SET  FILL  command  has  many  more 
examples. 


SHOW  INPUT-SET 

Displays  the  name  of  the  file  from  which  the  current  geometry  was 
defined. 


FORMAT 

SHOW  INPUT-SET 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  input  set  is  determined  with  the  SET  INPUT  command.  The 
SHOW  INPUT  command  echoes  this  input  set  filename. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SHOW  INPUT 

The  current  input  set  is 

USER1 : [RJM . NAS] AN5S 1 . INP ; 1 
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SHOW  KEYPAD-MODE 

Displays  the  current  state  of  the  keyboard. 


FORMAT 

SHOW  KEYPAD-MODE 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  keypad  of  most  DEC  terminals  can  be  in  one  of  two  states,  nu¬ 
meric  mode  or  keypad  mode.  In  numeric  mode,  the  keypad  buttons 
represent  the  numbers  and  symbols  printed  on  the  keys.  In  keypad 
mode,  the  keys  may  be  defined  to  provide  functions,  in  much  the 
same  way  as  they  do  in  DCL.  The  keypad  definitions  are  established 
by  a  startup  file  called  SHADOW. KPD  in  the  current  default  direc¬ 
tory. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHAD0W>  SHOW  KEYPAD 


The  keyboard  is  not  in  keypad  mode. 


The  keypad  was  not  in  keypad  mode  in  this  example. 
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SHOW  OUTPUT 


Displays  the  names  of  the  current  output  files. 


FORMAT 

SHOW  OUTPUT 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

There  are  three  possible  output  files  produced  by  the  shadow  pro¬ 
gram.  One  is  for  plotting  with  a  separate  plotting  program  and  has  a 
filetype  of  .PLT.  The  second  is  a  line-printer  formatted  output  with 
a  filetype  of  .PRT.  The  third  is  the  input  set  listing  echo,  which  may 
be  redirected  into  a  file.  Its  filetype  is  .LIS. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHAD0W>  SET  OUTPUT  EXAMPLE3  /PRINT 
SHADOW>  SHOW  OUTPUT 


Plotting  file  is:  USER1 : [RJM . NAS] EXAMPLE3 . PLT ; 1 
Printer  file  is:  USER1 : [RJM . NAS] EXAMPLE3 . PRT ; 1 
Input  echo  file:  USER1 : [RJM.NAS]EXAMPLE3.LIS; 1 


This  example  shows  how  a  SET  OUTPUT  command  creates  the 
names  shown  for  output  files.  See  the  SET  OUTPUT  command 
description  for  more  details. 
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SHOW  PATTERN-CUT 


Displays  the  pattern-cut  coordinate  system  transformation  matrix. 


FORMAT 

SHOW  PATTERN  .CUT 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  shadow  map  window  is  specified  relative  to  the  pattern-cut  co¬ 
ordinate  system.  This  system  can  be  changed  to  facilitate  easier 
specification  of  this  window  relative  to  the  blocking  object’s  coor¬ 
dinate  system,  that  is,  the  reference  coordinat  system.  For  more 
information,  see  the  SET  PATTERN  command  on  page  66. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 
SHAD0W>  SHOW  PATT 


SHAD0W>  SHOW  PATT 

*  The  following  rotations  are  used  for  ALL  subsequent  inputs:  * 

*  VPC(l.l)*  -0.70711  VPC(1,2)=  -0.70711  VPC(1,3)«  0.00000  * 

*  VPC(2,1)»  0.70711  VPC(2 , 2) =  -0.70711  VPC(2,3)=  0.00000  * 

*  VPC(3 ,  1)*=  0.00000  VPC(3,2)*  0.00000  VPC(3.3)*  1.00000  * 


The  pattern-cut  coordinate  system  shown  has  been  set  up. 


SHOW  SCALE-FACTOR 

Displays  the  uniform  scale  factor  currently  in  effect. 


FORMAT 

SHOW  SCALE-FACTOR 

Command  Qualifiers 

None. 

Defaults 

None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  SET  SCALE-FACTOR  command  can  set  a  uniform  scale  factor 
on  subsequent  antenna  inputs.  It  allows  an  extra  scaling  oft  the 
inputs. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHAD0W>  SHOW  SCALE 

The  uniform  scale  factor  is  1.00000000 


The  above  scale  factor  is  the  default.  It  has  not  been  changed  with 
SET  SCALE. 


SHOW  UNITS 

Displays  the  current  units  in  effect.  Valid  units  are  meters,  feet,  and 
inches. 

FORMAT 

SHOW  UNITS 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

There  are  three  different  units  in  which  antenna  locations  may  be 
specified.  This  command  displays  the  units  currently  in  effect.  The 
SET  UNITS  command  changes  the  default  units. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHADOW>  SHOW  UNITS 

The  current  units  are  feet 
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SHOW  WINDOW 


Displays  the  current  window  parameters. 


FORMAT 

SHOW  WINDOW 

Command  Qualifiers  Defaults 

None.  None. 

restrictions 

None. 

prompts 

None. 

command 

parameters 

None. 

DESCRIPTION 

The  output  can  be  windowed  onto  a  smaller  range  of  theta  or  phi, 
with  any  desired  resolution.  The  parameters  for  this  windowing  are 
established  by  the  SET  WINDOW  command. 

COMMAND 

QUALIFIERS 

None. 

EXAMPLES 

SHAD0W>  SHOW  WIND 

The  current  range  of  theta  in  degrees  is  0 . OOOOOOOE+OO  to  180.0000 
with  a  resolution  of  2.000000  degrees/pixel. 

The  current  range  of  phi  in  degrees  is  0 . OOOOOOOE+OO  to  360.0000 
with  a  resolution  of  2.000000  degrees/pixel. 


In  this  case,  the  window  is  set  to  its  default  range  with  a  resolution 
of  two  degrees/pixel. 
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Chapter  6 


Interpretation  of  the  Output 


The  final  product  of  the  obscuration  code,  SHADOW,  is  a  map  of  the  projected  shadow 
of  a  defined  object  onto  the  far  zone  sphere  with  its  center  at  the  antenna  location.  The 
map  is  composed  of  pixels  with  the  size  and  range  specified  by  the  user.  The  obscuration 
code  provides  complete  control  over  the  parameters  needed  to  define  the  map  and  provides 
a  line  printer  output  or  a  plottable  file  that  can  be  used  by  an  external  plotting  code.  This 
chapter  outlines  the  details  of  defining,  obtaining,  and  interpreting  the  shadow  map. 

For  this  discussion,  the  far  zone  sphere  can  be  viewed  as  being  ironed  out  into  a  flat 
plane,  that  is,  a  Mercator’s  projection  with  the  angle  phi  along  the  x  axis  and  the  angle 
theta  along  the  y  axis.  Using  the  VF  non-interactive  command  or  the  SET  WINDOW 
interactive  command,  the  user  can  choose  starting  angles,  incremental  step  size  which  is 
the  resolution  of  the  map,  and  the  total  number  of  steps  or  pixels  for  both  the  theta  and 
phi  angles.  This,  of  course,  also  dictates  the  stopping  angles  of  the  map  which  it  computes. 
The  default  is  for  theta  to  vary  from  0  to  180  degrees  in  steps  of  2  degrees  for  a  total  of 
91  pixels,  and  for  phi  to  vary  from  0  to  360  in  steps  of  2  for  a  total  of  181  pixels.  The 
interactive  command  SET  WINDOW  allows  these  parameters  to  be  changed  at  any  time 
during  a  session.  It  asks  for  the  starting  and  stopping  angle  and  the  resolution  which  is 
the  step  size  and  it  computes  the  number  of  pixels  for  each  angle.  These  angles  are  defined 
with  respect  to  the  pattern  coordinate  system,  which  is  specified  by  the  first  set  of  angles 
in  the  VF  command  or  by  the  SET  PATTERN  command.  The  default  is  for  the  pattern 
coordinate  system  to  be  the  same  as  the  reference  coordinate  system. 

As  discussed  in  Chapter  2,  the  code  computes  the  shadow  by  first  projecting  the  objects 
border  onto  the  far  zone  sphere  and  then  filling  in  between  the  borders.  A  pixel  is  considered 
to  be  filled  if  the  border  at  least  passes  through  more  than  half  the  distance  to  the  center 
of  a  pixel.  It  determines  this  by  rounding  the  theta  and  phi  angles  defining  the  border  to 
the  nearest  integer  with  respect  to  the  resolution  size  of  the  pixel,  which  is  the  step  size. 
This  sometimes  appears  to  produce  a  ragged  border  around  the  edges  of  the  shadow  if  the 
border  is  very  curved.  Note  that  a  straight  edged  plate  projects  a  shadow  that  is  curved 
in  border.  In  addition,  this  is  dependent  on  the  coordinate  system  in  which  the  shadow  is 
viewed.  Chapter  7  presents  specific  examples  of  these  types  of  maps. 

The  shadow  is  represented  by  an  ASCII  character  being  placed  in  an  array  corresponding 
to  the  integcrized  theta  and  phi  angles.  A  clear  viewing  point  is  left  blank.  The  choice  of 
the  character  that  is  placed  in  the  pixel  can  be  controlled  by  the  user.  The  default  is  for 
an  “X”  to  be  used  as  a  fill  character.  Interactivly  this  can  be  changed  using  the  SET  FILL 
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command.  Noninteractivly,  these  are  hard-wired  into  the  source  code. 

For  debugging  purposes  or  so  that  the  user  can  get  a  feel  for  which  plates  and  cylinders 
are  shadowing  which  regions  of  space  a  highlighting  feature  has  been  provided.  The  SET 
FILL/SEQUENTIAL  command  tags  each  plate  and  cylinder  with  its  own  uniquie  fill  char¬ 
acter.  The  first  plate  starts  with  “A”  and  each  succeeding  plate  is  incremented  up  by  one 
ASCII  character.  The  first  cylinder  starts  with  “1”  and  each  succeeding  cylinder  is  incre¬ 
mented  up  by  one  ASCII  character.  Note  that  if  there  are  a  lot  of  plates  and/or  cylinders, 
the  fill  characters  will  eventually  get  into  some  of  the  more  seldom  used  ASCII  characters. 
Also  note  that  in  this  mode  of  filling,  the  code  superimposes  the  latest  calculated  shadow 
for  a  plate  or  cylinder  on  top  of  the  shadow  map.  This  means  that  the  character  in  a  pixel 
for  a  finished  map  will  represent  the  last  object  that  the  code  calculated  a  shadow  for  and 
not  the  object  that  is  located  closest  to  the  observer. 

In  order  to  get  around  the  ambiguous  behavior  of  highlighting  the  plates  and  cylinders 
by  order  of  processing  rather  than  by  location,  the  user  can  instead  use  the  standard  fill 
character  for  all  plates  and  cylinders  and  highlight  one  particular  specified  object.  The 
command  SET  FILL/PLATE  =  (number, character)  or  SET  FILL/CYLINDER  =  (num¬ 
ber, character)  will  highlight  the  chosen  plate  or  cylinder  against  the  regular  fill  character. 
The  plate  or  cylinder  options  are  mutually  exclusive.  It  represents  the  shadow  of  the  whole 
plate  or  cylinder  that  is  tagged.  A  non  interactive  command  has  not  been  provided  for 
these  fill  features.  The  user  can  change  the  fill  characters  and  mode  in  the  INIT  subroutine. 

The  output  that  the  user  sees  can  come  in  three  forms.  The  first  type  of  output  comes 
from  an  echo  of  the  command  set  that  is  read  from  the  input  file  on  logical  unit  #5.  The 
output  is  sent  to  logical  unit  #6,  which  is  normally  assigned  to  a  default  file  type  of  .LIS 
on  a  VAX  in  the  interactive  mode.  An  ASCII  file  of  the  shadow  map  is  written  to  logical 
unit  #7,  which  is  normally  assigned  to  a  default  file  type  of  .PRT  on  a  VAX.  A  binary  file 
of  the  shadow  map  that  can  be  used  to  transfer  information  to  another  code  to  plot  the 
map  is  sent  to  logical  unit  #10,  which  is  normally  assigned  to  a  default  file  type  of  .PLT 
on  a  VAX. 

In  the  interactive  mode,  the  input  set  can  be  opened  using  the  SET  OUTPUT  com¬ 
mand.  The  output  files  can  be  opened  and  closed  using  the  SET  OUTPUT  /ECHOING, 
/PRINTABLE,  /PLOTTABLE  commands,  respectively.  In  the  non-interactive  mode,  they 
can  be  controlled  by  using  system  commands,  such  as  ASSIGN  on  the  VAX.  In  the  inter¬ 
active  mode,  the  output  files  should  generally  be  set  first,  so  that  the  code  will  have  the 
desired  information  as  to  where  to  sent  the  echo  back  information.  In  addition,  once  the 
code  is  run  and  it  is  desired  to  see  the  results,  it  is  possible  to  print  or  plot  the  results  using 
the  SPAWN  (“$”)  command.  The  files  that  are  desired  to  be  printed  or  plotted,  however, 
must  be  closed  first,  that  is,  the  SET  OUTPUT  command  should  be  given  again  reassigning 
the  files  to  another  name,  a  null  device,  or  the  printing  device.  This  will  close  the  files  and 
allow  them  to  be  accessed.  Of  course,  it  is  important  to  remember  to  reopen  them  after  the 
user  is  finished  and  wants  to  run  more  results.  Presently,  the  echo,  printable,  and  plottable 
map  files  will  accumulate  information  until  they  are  closed. 

Generally,  the  code  will  be  used  to  produce  plottable  files  of  the  shadow  maps  with  the 
printable  file  being  used  for  debug  purposes.  Plotted  maps  are  small  and  nicer  to  look  at. 
Unfortunately,  graphical  routines  are  presently  system  dependent.  A  plotting  code  for  a 
NCAR  (5],  has  been  provided,  however,  in  Chapter  13.  This  is  one  example  of  how  the 
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data  of  the  shadow  map  can  be  plotted.  Examples  of  both  the  printed  and  plotted  maps 
are  illustrated  in  the  examples  of  Chapter  7.  It  should  be  noted  that  due  to  the  limited 
amount  of  space  across  the  width  of  a  line  printer,  a  printed  map  will  be  broken  up  into 
widths  that  will  fit  onto  the  width  of  the  paper  if  it  is  too  wide.  The  map  will  come  out  in 
as  many  strips  as  necessary  to  produce  the  whole  map.  Plotted  maps  should  not  have  this 
problem  since  the  individual  pixels  can  be  graphed  very  close  together. 
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Chapter  7 


Examples 


The  following  examples  are  used  to  illustrate  the  various  features  of  the  SHADOW  com¬ 
puter  code.  Each  example  is  designed  to  show  how  a  set  of  non-interactive  and  interactive 
commands  can  be  put  together  to  solve  a  problem.  The  beginner  can  use  the  examples 
in  this  chapter  to  learn  more  about  the  code.  In  addition,  these  examples  can  be  used  to 
ensure  that  the  code  is  operating  correctly  on  your  system.  These  examples  were  run  on  a 
DEC  VAX  11/780  computer  using  version  4  of  the  VMS  operating  system. 

The  shadow  maps  shown  here  are  presented  mostly  with  the  line  printer  output,  since 
this  is  generally  the  most  transportable.  Plotted  output  would  normally  be  preferred  in  a 
design  situation.  A  few  examples  of  this  type  of  output  are  also  given. 
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7.1  Example  1:  A  Plate 

The  first  example  is  a  four-cornered  plate  centered  at  the  origin  and  situated  in  the  X-Y 
plane.  The  antenna  is  located  on  the  positive  Z  axis.  It  was  generated  with  the  following 
input  files  and  commands.  The  commands  were: 

$  RUN  SHADOW 

SHAD0W>  SET  OUT  PLAEX1/N0PL0T/PRIHT 
SHAD0W>  SET  INP  PLAEX 
SHAD0W>  SET  UNI  METERS 
SHAD0W>  SET  WIND 
90,  180 
1.0 

0. ,  360 
6. 

SHAD0W>  SET  ANT 
SHAD0W>  0,0,8 
SHAD0W>  SHADOW 
SHADOW >  EXIT 

$ 

The  input  set  defining  the  plate  was  the  following: 

CM:  SIMPLE  PLATE  TEST  SET 

CE:  RCS  INPUT  SET 

UN: 

1 

PC:  THE  PLATE  IS  400  SqUARE-METERS . 

4,0 

-10.0,  +10.0,  0.0 
-10.0,  -10.0,  0.0 
+10.0,  -10.0,  0.0 
+10.0,  +10.0,  0.0 
xq: 

EN : 
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The  output  this  produced  was  the  following: 


ANTENNA  (ICS)  *  (  0.0000,  0.0000.  8.0000  )  IN  KETEIS  INPUT  SET :  USEIJ : (IJMNAS.HANjPLAZX. INP;6 

THETA  (DECIEES) 

00.00  100  00  110  00  120.00  130.00  140.00  ISO. 00  ISO. 00  170.00  180.00 

PII  ********** 

0  00  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

6 .  oo  xxxxxxxxxxmxxxxmxmmxxxxxxxxxxxxxxxxxxxmxxx 

lo.oo  xxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

16.00  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

20 . oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

26 . oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

30.00  xxxmxxxxxxxxxxxxxxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxx 

36 . oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

40  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

4600  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

so  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

66.00  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

so . oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

66  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

TO  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

76  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

80 . oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

86 .  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

00.00  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

06  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

oo  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

06  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1 o  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

16.00  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

20  oo  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

26  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX7 

30  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

3600  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

40  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

45  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

60  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

66  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

60  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

6600  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

70  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

7600  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

BO  00  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


xxxxxxxxxxxxxxxxxxxraxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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860 

00 

866 

00 

ISO 

00 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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7.2  Example  2:  A  Different  Plate 

This  example  is  another  four-cornered  plate,  but  this  time  the  antenna  i3  located  at  the 
origin,  and  the  plate  is  centered  along  the  positive  Y  axis  and  is  normal  to  it. 

The  commands  were: 

$  RUN  SHADOW 

SHAD0W>  SET  OUT  PLAEX2/N0PL0T/PRIHT 
SHADOVO  SET  INP  PLAEX2 
SHAD0W>  SET  UNI  METERS 
SHADOVO  SET  WIND 

0,  180 
2.0 

0. ,  180 
S. 

SHAD0W>  SET  ANT 

0,0,0 

SHAD0W>  SHADOW 
SHAD0W>  EXIT 
$  EXIT 

The  input  set  defining  the  plate  was  the  following: 

CM:  SIMPLE  PLATE  TEST  SET 

CE:  RCS  INPUT  SET 

UN: 

1 

PG:  THE  PLATE  IS  400  SQUARE-METERS. 

4  0 

-10.0,  8,  +10.0 
-10.0,  8,  -10.0 
+10.0,  8,  -10.0 
+10.0,  8,  +10.0 
xq: 

EN: 
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7.3  Example  3:  The  First  Plate  Revisited 

The  current  example  is  deceptive.  Both  the  input  geometry  and  the  source  location  are 
identical  with  the  first  plate  example,  but  the  obscuration  output  is  identical  to  the  second 
example!  A  closer  of  the  input  sets  reveals  the  the  two  examples  are  really  the  same 
geometry,  but  defined  in  different  orientations  with  respect  to  the  Reference  Coordinate 
System.  The  third  example  takes  advantage  of  this  fact  and  uses  the  SET  PATTERN-CUT 
command  to  reorient  the  coordinate  system  of  the  antenna.  The  result  is  that  while  the 
geometry  is  defined  the  same  as  the  first  example,  the  output  resembles  the  second  example. 
The  commands  to  generate  the  example  were: 

$  RUN  SHADOW 

SHAD0W>  SET  OUT  PLAEX3/N0PL0T/PRINT 
SHAD0W>  SET  INP  PLAEX 
SHADOW >  SET  UNI  METERS 
SHAD0W>  SET  WIND 
0,180 
2.0 

0. .180 

5. 

SHAD0W>  SET  ANT 

0.0.8 

SHAD0W>  SET  PATT 

90. ,  +90. ,  90. .  0. 

SHADOW >  SHADOW 
SHAD0W>  EXIT 
$  EXIT 

The  input  set  defining  the  plate  was  the  same  one  used  in  example  one.  It  is: 

CM:  SIMPLE  PLATE  TEST  SET 

CE:  RCS  INPUT  SET 

UN: 

1 

PC:  THE  PLATE  IS  400  SQUARE-METERS. 

4  0 

-10.0,  +10.0,  0.0 
-10.0,  -10.0.  0.0 
+10.0.  -10.0.  0.0 
+10.0,  +10.0,  0.0 
XQ: 

EN: 
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7.4  Example  4:  A  Non-Interactive  Version  of  Example  1 

This  example  illustrates  an  input  set  for  non-interactive  use  of  the  code.  The  main  program 
has  been  changed  to  the  non-interactive  version  and  non-interactive  subroutines  were  not 
linked  into  the  code.  The  input  set  is  the  same  as  Example  1,  except  that  the  source  and 
window  have  been  define  using  the  SG  and  VF  commands,  respectively.  Note  that  these 
commands  can  also  be  used  in  the  interactive  mode  also  to  hard  wire  the  antenna  location 
and  window  as  a  default  case.  The  output  is  not  shown  here  because  it  is  identical  to  that 
of  Example  1. 

The  input  set  defining  the  plate  is  the  following: 

CM:  SIMPLE  PLATE  TEST  SET 

CE:  RCS  INPUT  SET 

UN: 

1 

PG:  THE  PLATE  IS  400  SQUARE-METERS. 

4  0 

-10.0,  +10.0.  0.0 
-10.0,  -10.0,  0.0 
+10.0,  -10.0,  0.0 
+10.0,  +10.0,  0.0 
SG:  THE  SOURCE  LOCATION 
0..0..8. 

0. ,0. ,90. ,0. 

-1,0. 6.0. 

1..0. 

VF:  VINDOV  SIZE 
0..0..90..0. 

T.0..2..91 
0. ,2. ,181 
XQ: 

EN: 


7.5  Example  5:  An  Elliptic  Cylinder 

This  example  is  consists  of  one  elliptic  cylinder  centered  on  the  origin  with  its  axis  directed 
along  the  Y  axis.  Three  different  source  locations  are  presented  with  this  single  example. 
The  commands  were: 

$  RUN  SHADOW 

SHADOW>  SET  OUT  CYLEX1/N0PL0T/PRINT 

SHAD0W>  SET  IMP  CYLEX1 

SHADOW >  SET  UNI  METERS 

SHAD0W>  SET  WIND 

130,180 

0 . 55555556 

0. ,360 

5. 

I 

!  An  overhead  view  of  the  cylinder,  which  is  centered  on  the  origin, 

I  with  radii  of  1  and  1,  with  a  a  length  of  1  aeter. 

I 

SHAD0W>  SET  AMT 
0.0.4 

SHADOW>  SHADOW 
! 

I  A  broadside  look  at  the  cylinder. 

! 

SHADOW >  SET  WIND 
45,135 
1.0 

220., 310 
1.25 

SHADOW>  SET  ANT 
0.4.0 

8HAD0W>  SHADOW 
1 

I  Now  a  look  at  the  sane  geometry  along  the  axis  of  the  cylinder. 

SHADOW>  SET  AtJT 
4.0.0 

8HAD0W>  SET  WIND 
45,135 
1.0 

130, 220 
1.25 

SHAD0W>  SHADOW 
8HAD0W>  EXIT 
$  EXIT 

The  input  set  defining  the  plate  was  the  following: 

CM:  8IMPLE  AIRCRAFT 

CE:  RC8  INPUT  SET 

UN: 
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1 

CC:  FIRST  CYLINDER 

0..0..0. 

00. ,0. ,0. ,0. 

2 

1. 

1.1.,  -1. 

XQ: 

EN: 
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AMTtflli  UC«>  ■  (  O.OOM.  4. MOO,  O.MM  )  II  NSTIIS 


IIFUT  1ST:  Ultll :  (UN.IAl.KAMjCYUXl . II?  j  4 


41. M 
Ml  ♦ 
MOM 
Ml  .26 
MI.U 
Ml. 76 
MS.  00 

MO. as 

127. 50 
Mf.TS 
210.  M 
211. IS 

212. 50 

211. 75 
21S.M 
210.26 

217. 50 

218. 76 
240. M 

241.26 

242.60 

241.76 
246. M 

240.26 

247 .60 

248.76 
260.00 

261.26 

262.60 

263.76 
266.  M 
266.26 

267.60 

268.76 
260.00 
261.26 

262.60 

203.76 
206.00 
206.26 

267.60 

268.76 
270. M 

271.26 

272.60 

271.76 
276.  M 

270.26 

277.60 

278.76 
280. M 

281.26 

282.60 

281.76 
286.00 
280.26 

287.60 

288.76 
2M.M 
201.26 

202.60 

201.76 
206.  M 
2M.26 

207.60 

208.76 
8M.M 
601.26 

602.60 

606.76 
606. M 
600.26 
607.60 

608.76 
610. M 


76. M 


TIK7A  (DECUU) 

86.  M  06. M  106.00  116. M  126. M 


mxxxxxxxm 

mmxxxxxxxxxxxmxxxxx 


noooonoon tmxmxmmxxxxx 


coogmxixmxmipjuuuuuua 


xxxxxxmxxraxxmxmxxmx 


186. M 


wnww  (tct)  •  (  4.9000.  o.oooo,  0.0000  >  is  nnu 


4ft. 00  ftft.00 

PII  *  ♦ 

100.00 
191.2ft 
102. ftO 

133.76 
106.00 
10ft. 26 

107. 60 

100.76 
140.00 

141.26 

142.60 

140.76 
146.00 
14ft. 26 

147.60 

140.76 
160.00 

161.26 

162.60 

160.76 
166.00 
160.26 

167.60 

160.76 
IftO.OO 
14126 

162.60 

109.76 
146.00 
1*4.26 

147.60 

140.76 
170.00 

171.26 

172.60 

170.76 
176.00 

170.26 

177.60 

170.76 
100.00 

101.26 

102.60 
tOO. 76 
106.00 
106.26 

107.60 

100.76 
190.00 
101.26 

102.60 

190.76 
196.00 

190.26 

197.60 

190.76 

200.00 

201.26 

202.60 

200.76 
206.00 

204.26 

207.60 

200.76 
210.00 
211.36 

212.60 

310.76 
216.00 

216.26 
21T.60 

210.76 

220.00 


1NPV7  on:  mil:lUN.«M.IUI)CYUXl.IIF}4 
TIKTA  (DEQUES) 

06.00  76.00  06.00  96.00  106.00  116.00  126.00  106.00 

♦♦♦♦♦♦♦♦ 


PPOOOOt 

xxxxxxxxxxxxxxx 
xxxxxxxxx  xxxx  xxxxxxxx 
raxmxxxxxxxxxxxxxxxx 
raxxxxxxxxxxxxxxxxxxxxxra 
xmxmxxxxxxxxxmxmxmx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xmxxxxxxxxxxxxxxxxxxxxxxxxxxmxxxx 
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7.6  Example  6:  Two  Elliptic  Cylinders 

This  example  is  consists  of  two  elliptic  cylinders  equidistant  from  the  origin  with  axes 
coincident  and  directed  along  the  Y  axis.  Three  different  source  locations  are  presented 
with  this  single  example. 

The  commands  were: 

$  RUN  SHADOW 

SHADOW >  8ET  OUT  CYLEX2/N0PL0T/PRINT 

SHADOW >  SET  INP  CYLEX2 

SHAD0W>  SET  UNI  METERS 

SHADOW>  8ET  WIND 

130,180 

0.5S55S5S6 

0. ,360 

6. 

! 

!  An  overhead  view  of  the  2  cylinders  with  radii  of  1  and  1, 

!  with  a  length  of  1  meter  each. 

! 

SHAD0W>  SET  FILL  /CYL-1 
SHAD0W>  SET  ANT 
0.0,4 

SHAD0W>  SHADOW 
! 

SHAD0W>  SET  WIND 
45,135 
1.0 

220. . 310 
1.25 

8HAD0W>  SET  ANT 
0.4.0 

SHAD0W>  SHOW  FILL 
8HAD0W>  SHADOW 
! 

SHADOW >  SET  ANT 
4.0,0 

8HAD0W>  SET  WIND 
45,135 
1.0 

130..  220 
1.25 

8HAD0W>  8H0W  FILL 
8HAD0W>  SHADOW 
8HAD0W>  EXIT 
I  EXIT 

The  input  set  defining  the  plate  was  the  following: 

CM:  8IMPLE  AIRCRAFT 

(X:  RC8  INPUT  8ET 

UN: 


97 


1 

CC:  FIRST  CYLINDER 
0..-2..0. 
0O..O..O..O. 

2 

1. 

-1. 

CC:  SECOND  CYLINDER 

0. .+2. ,0. 

90. ,0. ,0. ,0. 

2 

1. 

-1. 

XQ: 

EN: 
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The  output  generated  by  the  code  was  the  following: 


ANTENNA  (ICS) 


0.0000,  4.0000  )  IN  NETS 18  1KFUT  SET:  USE I I : (IJN.HAS.NAJi]CYlXX2.INF:2 


ISO. 00 

m  ♦ 
0.00 
6. 00 
10.00 
16.00 
20.00 
26.00 
SO.  00 
S6.00 
40.00 
46.00 
60.00 
66.00 
60.00 
66  00 
70.00 
76.00 
80.00 
86.00 
00.00 
96.00 
100.00 
106  00 
110.00 
116.00 
120  00 
126.00 
ISO. 00 
136.00 
140.00 
146.00 
160.00 
166.00 
160.00 
166.00 
170.00 
176.00 
180.00 
186.00 
190.00 
196.00 
200.00 
206.00 
21000 
216.00 
220.00 
226.00 
2S0.00 
236.00 
240.00 
246.00 
260.00 
266.00 
260.00 
366.00 
270.00 
276.00 
280.00 
286.00 
290.00 
296.00 
800.00 
806.00 
810.00 
816.00 
820.00 
826.00 
880.00 
886.00 
S40.00 
846.00 
860.00 
866.00 
860.00 


126.66  141.11 


TIETA  (OECKEZS) 

146.67  163.22  167.78  168.82 


168.89 


ramxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxx 


jaoouaoa 


cccccccc 

cccccccccccccccccc 

cccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccce 

ccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccccc 

ecccccccccccccccccceccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccceccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccc 

cccccccccccccccccc 

cccccccc 


174.44 


180.0 
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ANTENNA  (ICS)  •  (  0.0000  .  4.0000  .  0.0000  )  IN  KETEU 


INPUT  SET :  UfEKl:  [UM.NAf  .KAN)CTLEX2.!NP;3 


ANTENNA  (KC8)  ■  (  4.0000  .  0.0000  .  0.0000  )  IN  KETEU 


INPUT  NET:  UfZtl :  (EJN.NA8.NAN]CYLEX2.INP}2 


Pll 

130.00 

131.36 

132.60 

133. 76 
136.00 

130.26 

187.60 

m.n 

140.00 

141.26 

142.60 

143.76 
146.00 

146.26 

147.60 

148.76 
160.00 

161.26 

162.60 

163.76 
166.00 
166.26 

167.60 

168.76 
160.00 
161.26 

162.60 

163.76 
166.00 
166.26 

167.60 

168.76 
170.00 

171.26 
172  60 

173.76 
176.00 

176.26 

177.60 

178.76 
180.00 

181.26 

182.60 

183.76 
186.00 
186.26 

187.60 

188.76 
100.00 
101.26 

102.60 

103.76 
106.00 
106.26 

107.60 

108.76 
200.00 
201.26 

202.60 

203.76 
206.00 
206.26 

207.60 

208.76 
210.00 
211.26 

212.60 

213.76 
216.00 
216.26 
217.60 

218.76 
220.00 


TIETA  (DEQUES) 

46.00  66.00  66.00  76. 00  86.00  05.00  106.00  116.00  126.00 


XXXXXXXXXXX 

xxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxx xxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxx 
xxxxxxxx xxxxxxxxx 
xxxxxxxxxxxxx 
xxxxxxx 


ccccccc 

ccccccccccccc 

ccccccccccccccccc 

ccccccccccccccccccc 

ccccccccccccccccccccc 

ccccccccccccccccccccc 

ccccccccccccccccccccccc 

ccccccccccccccccccccccc 

ccccccccccccccccccccccccc 

ccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

5CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

ccccccccccccccccccceccccceccccc 

ccccccccccccccccccccccccccccecccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccccc 

ccccceccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccccc 

ccccccccccccccccccccccccccc 


186.00 


7.7  Example  7:  A  Space  Station  Model 

This  example  uses  a  space  station,  shown  in  Figure  7.1,  that  has  been  provided  by  NASA, 
Langley.  The  computer  model  is  illustrated  in  Figure  7.2.  It  is  an  demonstrates  how  to  use 
the  windowing  and  highlighting  commands  (SET  FILL)  to  effectivly  show  obscuration. 
The  commands  were: 

$  RUN  SHADOW 

SHADOW >  SET  OUT  AN6S1  /PRINT/NOECHO 
SHADOW >  SET  INP  AN5S1 
SHADOW>  SET  UNI  FEET 
SHADOW>  SET  WIND 
0,180 
2.0 

20. ,290 

2.5 
! 

!  Display  ONLY  plate  6. 

! 

SHADOW>  SET  FILL  "  "  /PLATE-6 
SHADOW >  SET  ANT 

25,  15,  256.5 
SHADOW>  SHADOW 
! 

1  Now  make  plate  6  stand  out  from  the  crowd. 

! 

SHADOW >  SET  FILL  *M"  /PLATE- (6, $) 

SHADOW >  SET  ANT 

25,  15,  256.5 
SHADOW>  SHADOW 
$  EXIT 

The  input  set  defining  the  plate  was  the  following: 

CM:  **«******CASE  AN5S1********** 

CM:  ********OBSCURATION********** 

CE: 

LP: 

F 

UN:  UNITS  IN  FEET 

2 

CM:  UPPER  BOOM 
CE: 

PC:  BOTTOM 
4  0 

4.5  49.5  387. 

4.6  -49.5  387. 

-4.6  -49.6  387. 

-4.6  49.6  387. 

PC:  +X  SIDE 

4  0 

4.5  49.6  396. 
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4.5  -49. S  396. 

4.6  -49.5  387. 

4.5  49.5  387. 

CM:  UPPER  KEEL 
CE: 

PG:  -Y  #1 
4  0 

4.6  -4.5  270. 

4.5  -4.5  387. 

-4.5  -4.5  387. 

-4.5  -4.6  270. 

P6:  +Y  #1 

4  0 

4.6  4.5  270. 

-4.6  4.6  270. 

-4.5  4.6  387. 

4.6  4.6  387. 

PG:  +X  SIDE 

4  0 

4.5  4.5  387. 

4.5  -4.5  387. 

4.6  -4.6  270. 

4.5  4.5  270. 

CM:  LOVER  KEEL  ft  EXTENSION 
CE: 

PG:  +X  SIDE 
12  0 

4.6  22.6  0. 

4.5  22.5  99. 

4.5  4.5  99. 

4.6  4.5  261. 

4.5  -4.5  261. 

4.6  -4.5  99. 

4.6  -22.6  99. 

4.6  -22.6  0. 

4.6  -13.5  0. 

4.6  -13.5  54. 

4.5  13.5  64. 

4.5  13.5  0. 

PG:  -Y  #1 

4  0 

4.6  -22.6  0. 

4.5  -22.5  99. 

-4.6  -22.6  99. 

-4.6  -22.5  0. 

PG:  -Y  #2 

4  0 

4.6  -22.5  99. 

4.5  -4.5  99. 

-4.6  -4.5  99. 

-4.5  -22.6  99. 
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PG:  -Y  #3 
4  0 

4.5  -4.6  09. 

4.5  -4.5  261. 

-4.5  -4.5  261. 

-4.6  -4.6  99. 

PG:  +Y  #1 

4  0 

4.6  22.5  0. 

-4.6  22.5  0. 

-4.5  22.6  99. 

4.5  22.5  99. 

PG:  +Y  #2 

4  0 

4.5  22.5  99. 

-4.5  22.5  99. 

-4.5  4.5  99. 

4.5  4.5  99. 

PG:  +Y  #3 
4  0 

4.5  4.5  99. 

-4.6  4.6  99. 

-4.5  4.5  261. 

4.5  4.5  261. 

CM:  NON-ROTATING  SECTION 
CM:  OF  SOLAR  PANEL  BOOM 
CE: 

PG:  BOTTOM 
4  0 

4.5  49.5  261. 

4.5  -49.5  261. 

-4.6  -49.5  261. 
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T  8.186  4.87 
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-40  40.  4. 

XQ:  EXECUTE  CODE 
EN:  END  CODE 

The  output  generated  by  the  code  was  the  following: 

MTUM  (ICf)  «  <  7.  *300,  4.(720.  70.1(12  )  II  nTIIl  IITOT  *17:  Mill :  (UN.IAl.MIHlMl  Ilfil 

Tim  iiuini) 

0.00  20.00  40.00  00.00  10.00  100.00  120.00  140.00  1*0.00  1*0.00 

m  ♦♦♦♦♦♦♦♦♦♦ 
20.00 
22. SO 
2S.00 
27.10 
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SO. 00 
93.(0 
36.00 
ST.  60 
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43.60 
46.00 
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62.60 
65.00 
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00.00 
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fff 

fff 

fff 

fff 

fff 

fff 

fff 

fff 

fff 

fff 

fff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 
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247.60 
280.00 
282.80 
288.00 
26T.S0 
280.00 
282.80 
286.00 

267.60 
270.00 

272.60 
276.00 

277.60 
280.00 

282.60 
286.00 

287.60 
280.00 
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Figure  7.1:  Illustration  of  the  Space  Station 


TOP 


FRONT 


SIDE 


Figure  7.2:  Three-axis  view  of  the  Space  Station  as  modeled  by  the  input  set 
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7.8  Example  8:  Another  Look  at  the  Space  Station 

This  example  presents  a  full  view  of  the  space  station  in  the  previous,  except  that  the 
output  is  generated  with  the  NCAR  graphics  interface.  The  non-interactive  input  is  the 
same.  The  standard  fill  character  procedure  is  used  and  a  complete  window  is  displayed 
with  two  degree  resolution  in  theta  and  phi.  The  NCAR  plot  has  been  obtained  using  the 
plotting  code  in  Chapter  13.  The  shadow  map  produced  is  shown  in  Figure  7.3 
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SHAD0W  TEST  F0R  CASE  AN5S1 

ANTENNA  L0CATED  AT  25.0.  15.0.  256.5 

ANTENNA  0RIENTAT10N  0.0.  0.0.  90.0.  0.1 

S0LAR  PANELS  R0TATED  0.0.  -52.0 

THERMAL  RADI AT0R5  R0TATED  0.0 
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-45.0 


-90.0 


-135.0 


-180.0 
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Figure  7.3:  NCAR  plot  showing  the  shadow  map  of  the  space  station  model. 
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Chapter  8 


Introduction 


The  obscuration  code  SHADOW,  is  designed  to  produce  a  projected  shadow  map  onto  the 
far  zone  radiation  sphere  of  an  antenna  in  a  complex  environment.  The  map  is  efficiently 
calculated  by  directly  tracing  the  outer  boundaries  of  the  multisided  flat  plates  and  compos¬ 
ite  cone  frustum  cylinders  onto  theta  -  phi  space  and  then  Ailing  between  the  boundaries 
along  raster  lines.  The  code  has  been  developed  to  be  interactively  run  on  a  DEC  VAX  com¬ 
puter.  It  can,  also,  be  run  non-iteractiveiy  on  any  other  computer  by  simply  substituting 
the  small  main  program  and  leaving  out  the  interactive  subroutines. 

Part  I  of  this  manual  is  a  user’s  guide  which  treats  the  code  from  the  users  standpoint 
without  much  particular  details  about  the  coding.  Part  II,  given  here,  is  intended  to  give 
some  details  about  the  internal  workings  of  the  code.  It  gives  more  speciflc  information 
about  the  coding  itself.  It  is  of  importance  primarily  for  people  implementing  the  code 
on  a  new  system,  for  debugging  errors,  or  for  making  changes  in  how  the  code  operates. 
An  overview  of  how  the  code  is  organized  is  given  in  Chapter  9.  A  listing  of  the  code  is 
given  in  Chapter  10.  It  is  broken  up  into  three  parts  for  the  non-interactive,  FORTRAN 
77  subroutines  and  into  the  interactive  VAX  dependent  subroutines.  The  implementation 
of  the  code  on  a  VAX  is  given  in  Chapter  11  and  a  brief  description  of  implementing  the 
code  on  a  non- VAX  computer  is  given  in  Chapter  12.  A  listing  of  an  NCAR  plotting  code 
for  the  shadow  map  is  given  in  Chapter  13. 


Chapter  9 


Code  Organization 


The  obscuration  code  SHADOW  is  designed  to  produce  a  projected  shadow  map  onto  the 
far  zone  radiation  sphere  of  an  antenna  in  a  complex  environment.  The  map  is  efficiently 
calculated  by  directly  tracing  the  outer  boundaries  of  the  multisided  flat  plates  and  compos¬ 
ite  cone  frustum  cylinders  onto  theta  -  phi  space  and  then  Ailing  between  the  boundaries 
along  raster  lines. 

The  code  has  been  developed  with  efficiency  and  ease  of  use  as  primary  considerations. 
Often  with  other  similar  codes  the  engineer  is  not  part  of  a  tight  interactive  design  loop. 
In  order  to  facilitate  this  capability,  while  maintaining  necessary  transportability,  the  code 
has  been  split  into  two  versions  so  that  it  can  be  run  in  two  different  modes,  interactively 
or  non-interactively  depending  on  the  computer  being  used.  In  both  versions  the  flow 
of  program  control  is  basically  the  same.  The  main  program  either  accepts  interactive 
commands  from  the  terminal  and  acts  on  those  commands,  or  reads  a  different  set  of  non¬ 
interactive  commands  from  the  input  file  and  processes  those.  In  both  cases,  the  main 
program  loops  on  input  commands  and  calls  appropriate  subroutines  for  the  creation  and 
output  of  the  shadow  map. 

The  map  creation  is  broken  down  into  separate  phases  for  each  class  of  geometry  being 
processed.  Plates  and  elliptic  cylinders  are  the  two  phases  currently  implemented.  Each 
processing  phase  works  by  projecting  each  member  of  each  class  of  geometry  onto  the 
far-zone  sphere.  The  code  implements  the  shadow  map  by  mapping  the  far  zone  sphere 
in  theta-phi  space  into  a  rectangular  character  array.  The  size  of  the  array  and  hence 
the  angular  resolution  of  the  resulting  map  is  determined  by  the  user  at  run  time.  After 
a  member  is  projected,  the  far-zone  grid  (array)  is  processed  in  a  raster-scan  fashion  to 
implement  an  area  fill  for  the  member.  In  this  way  every  geometric  entity  is  processed 
and  included  in  the  array.  After  all  items  of  all  classes  have  been  processed,  the  output 
routines  format  and  display/dump  the  resulting  map.  The  main  program  then  readies  itself 
to  execute  yet  another  command  or  commands. 

The  source  code  is  also  organized  into  two  groups  of  files  depending  upon  the  desired 
mode  of  operation.  The  code  is  organized  this  way  so  that  minimum  source  modification 
is  necessary  in  order  to  run  in  either  interactive  (in  the  case  of  a  VAX  computer)  or  non¬ 
interactive  modes.  The  chapter  on  Non- VAX  implementation  describes  the  conversion  of 
the  source  to  non-interactive  mode  in  detail. 

Since  the  map  computation  and  display  routines  are  identical  for  both  modes  of  oper¬ 
ation,  the  transportability  of  generated  results  depends  on  the  numerical  behavior  of  the 
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target  machine  an  not  on  implementational  differences  between  the  interactive  and  non¬ 
interactive  versions. 
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Chapter  10 

Listings  of  the  Code 


This  chapter  describes  the  operation  of  the  routines  and  functions  used  by  the  program. 
Each  listing  is  presented  in  alphabetical  order  and  is  preceded  where  appropriate  by  a  short 
explanation  of  methods  used. 

10.1  VAX/ VMS  Subroutines 

The  following  routines  are  for  the  interactive  implementations  of  the  code.  They  are  used 
in  conjunction  with  the  routines  in  this  chapter  that  are  common  to  both  versions. 


MAIN  PROGRAM 


This  is  the  main  routine  for  the  interactive  versions  of  the  program.  It  calls  a  one-time 
initalization  routine  and  then  executes  commands  until  finished.  There  is  another  slightly 
different  main  program  for  the  non-interactive  code. 


0001 

0003 

0003 

0004 

0006 

0006 

0007 

0008 

0000 

0010 

0011 

0013 

0013 

0014 

0016 

0010 

0017 

0018 

0010 

0030 

0031 


PROGRAM  SHADOW 

Cl !  !♦■» 

CM!  Thl»  program  van  writtan  at  tha  ohio  itata  nnivaralty 
CM!  tloctroaclaneo  laboratory,  any  problaas  or  coananta 
CM  I  can  ba  rafarrad  to: 

CM! 

CM!  LASZLO  A.  IAXACS  OR  RONALD  J.  NARHEFKA 

CM  I  ELECTROSCIENCE  LABORATORT 

CM!  1330  KINNEAR  RD. 

CM!  COLUMBUS, OHIO  43313 

CM!  PHONE:  (814)  433-6763  OR  433-6848 

C!  1 1 

CM!  Tbla  program  provldaa  a  printar  oatpat  of  tba  gaomatrleal 
Cl  1 1  akadov  boandrlaa  of  a  atraetara  of  plataa  and  cyllndara  lnpat 
Cl!)  aa  valid  lapat  aata  to  tha  aaaarleal  coda. 

CM! 

CM  I  Thia  program  van  vrlttaa  16-JUN-1084. 

Cl II  Tba  lataat  modification  occarrad  18-DEC-1085. 

CHI¬ 

CHI 

CIH  Baglaalng  of  tha  mala  rontlaa. 
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0022  cm  Initialize  any  SHADOW  data  etroctnrea 

0023  cm 

0024  CALL  IHIT 

0026  Cl  1 1 

0020  CI1I  Call  the  Interactive  terminal  Interface.  Thie  routine  calle  all 
0027  Cl  1 1  other  eobrontlnee. 

0028  cm 

0029  CALL  INTRAC 

0030  cm 

0031  cm  Flnlehed. 

0032  cm 

0033  END 
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SUBROUTINE  INIT 


0001 

0002  C . - . 

0003  SUBROUTINE  INIT 

0004  INCLUDE  ‘SH4C0M  FOR' 

0170  CM  I 

0171  CM!  Thi*  subroutine  Initialize*  tha  uln  routine. 

0172  CM!  It  1*  meant  to  bo  collod  onco,  at  tha  atart  of  tha  program. 

0173  CM! 

0174  Cl ! !  1 1 1 1!  1 1 1 !  I  M  I !  I! !!  Ml  1 1  M  I  M  I  M  !  I!  M  I!  M  I!  I II II !!  I II !  II I II I II I  It  II II 


017S  CM!  I 
0176  CIM  NOTICE:  I 
0177  CMI  Thla  routine  parforxa  action*  which  do  not  apply  to  tha  I 
0178  CMI  non-lntaractlva  mod*  of  oparatlon.  In  particular,  tha  varlabla*  I 
0179  CM  I  which  ara  lntlallzad  hara  nay  ba  reinitialized  alaawhara  la  both  I 
0180  CMI  Interactive  and  non-lntaractlva  varalona.  titering  that*  I 
0181  CM  I  parameter*  may  or  nay  not  achiava  tha  expected  remit*.  I 
0182  CM!  I 


0183  C!  I II II I II 1 1 1!  1 1 1! 1 1! I II II  I! 1 1 II M 1 1! I II II M  M II  I! II 1 1 II II  I!  II  M  1 1!  I!  II I 
0184  CM! 

018B  CMI  Initialize  variablea  to  thalr  default  value*. 

0186  CM! 

0187  CMI  The  lowar /higher  theta  and  of  tha  range. 

0188  CM! 

0189  THET1  «  0.0  •  RPD 

0190  THET2  *  180.0  *  RPD 

0191  CM! 

0192  CM!  Tha  lowar/hlghar  phi  and  of  tha  range. 

0193  CM! 

0194  PHI  »  0.0  »  RPD 

0196  PH2  ■  380.0  *  RPD 

0106  CIM 

0197  CM!  Tha  deelred  theta/phl  raaolutlon  In  unit*  of  radlana/plxal . 

0198  CMI 

0199  RESTH  «  2.  *  RPD 

0200  RESPH  =  2.  »  RPD 

0201  CMI 

0202  CtM  Rotate  translate  default  data  RT: 

0203  CMI 

0204  THZP  *  0 

0206  PHZP  •  0 

0206  THXP  *  90. 

0207  PHXP  -  0 

0208 

0209  TRS(  1  )  «  0. 

0210  TRS(  2  )  *  0 

0211  TRS(  3  )  «  0. 

0212 

0213  VRS(  1,  1  )  «  1. 

0214  VRS(  1,  2  )  ■  0. 

0216  VRS{  1,  3  )  ■  0 

0216 

0217  VRS(  2,  1  )  «  0 

0218  VRS(  2,  2  )  -  1 

0219  VRS(  2.  t.  )  »  0. 

0220 

0221  VRS(  3,  1  )  «  0 

0222  VRSC  3,  2  )  *  0 

0223  VRSC  3,  3  )  «  1. 

0224  CHI 

0226  CHI  Unlta  default  data  UN:.  UF: 
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0336  CIM 


0337 

I0NIT 

«  1 

0338 

UNITF 

»  1.0 

0339 

tram 

■  0N1T(  IUHIT  > 

0330 

OMITS 

■  UNITN  •  OMITF 

0331 

0333 

cio 

CIO  Pattarn 

cut  oriantatlcn 

0333 

0334 

cm 

VPC(  1, 

1  )  ■  1. 

0336 

VPC(  1, 

3  )  -  0. 

0336 

VPC(  1, 

3  )  *  0. 

0337 

0338 

VPC(  3. 

i  )  *  0. 

0339 

VPC(  3, 

3  )  •  1. 

0340 

VPC(  3. 

3  )  »  0. 

0341 

0343 

VPCC  3, 

1  )  »  0. 

0343 

VPC<  3, 

3  )  -  0. 

0344 

VPC(  3, 

3  )  «  1. 

0346  cm 

0346  CHI  Opan  bob*  atandard  input/output  fil«»  for  tho  VMS  aupport  rontlnoi. 

0347  CHI  Unit*  6  and  6  art  raaarvad  for  input  aat  raadlng  and  aehoing  by  tha 
0348  CHI  inpst  aat  procaaaor.  DOTE:  Thia  ia  oparatlng  ayatam  dapandant 

0340  Cl  It  (tuff.  Thia  ia  tha  natural  placa  for  it  (inca  it  ia  intialixad 

0360  Clll  at  tha  (tart. 

0361  CHI 

0363  OPEIH  UIIIT=1  .FILE* 'SYS!  INPUT '  ,TTPE=‘0LD‘  ) 

0363  0PE1K  U1I11*3.F1LE=,S'IS$0UIPUT'  .TYPE*' UNKNOWN ‘  ) 

0364  CM! 

0366  Clll  End  of  program  lntlallzatlon . 

0366  Clll 

0367  RETURN 

0368  END 
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SUBROUTINE  INTRAC 


This  is  the  interactive  commands  subroutine  called  by  the  main  routine.  It  fields  com¬ 
mands  typed  by  the  user  and  executes  the  appropriate  service  routines.  Also  listed  here  are 
two  I/O  function  subprograms  which  are  indirectly  invoked  by  INTRAC.  They  are  called 
GETJNPUT  and  PUT-OUTPUT. 

0001  C . 

0002  SUBROUTINE  INTRAC 

0003  t 
0004  I ♦♦ 

0006  I  FACILITY:  INTERACTIVE  TERMINAL  COMMAND  INTERFACE 
0006  1 

0007  I  ABSTRACT: 

0008  I 

0009  I  Thli  procedure  prompt*  a  terminal  for  lnpst  and  pareee/dlepatcbee 

0010  I  through  CLIt  routine*. 

0011  ! 

0012  I  ENVIRONMENT:  VAI/VMS  Verilon  4.x 

0013  t 

0014  I  AUTHOR:  Laezlo  Takaee  CREATION  DATE:  20-AUC-19B6 

0016  < 

0016  !  MODIFIED  BY: 

0017  I 

0018  !  1-001  -  Original,  LAT  20-AUC-1986 

0010  I  — 

0020  IMPLICIT  NONE 

0021  INCLUDE  ' (IRMSDEF) ' 

0463  INCLUDE  ' (8SNGDEF) ' 

0774  INCLUDE  'SHACOM.FOR' 

0940  EXTERNAL 

0941  ♦  COMMAND. TABLES,  I  U»*r-d*fln*d  com 

0942  «  GET. INPUT  I  The  I/O  rentlne  at  the  b 

0943  1 

0944  INTEGERS 

0946  «  STS, 

0946  *  READ.STS, 

0947  ♦  CLI8PRESENT, 

0948  4  CLUDISPATCH, 

0949  «  CLI ADCL. PARSE , 

0960  4  CLItGET. VALUE, 

0961  4  SMGILOAD.KET.DEFS, 

0962  4  SMG  A  CREA  TE.KET. TABLE, 

0963  4  SNCA DELETE. VIRTUAL.KETBOARD, 

0964  4  SMClCREATE.VIRTUAL. KEYBOARD 

0066  I 

0966  I  Make  a  key  deflnlten  table. 

0967  I 

0968  STS  «  SMCACREA TE.KET. TABLEt  KEYTBL  ) 

0969  IF  (.NOT.  STS)  CALL  LIB|SIONAL(  XVAL(STS)  } 

0960  I 

0961  I  Lead  the  definition*  from  the  key  definition  file.  Ignore  "file  not  f 
0962  I 

0963  STS  ■  SMGILOAD.KET.DEFS (  KETTBL,  ' SHADOW . KPD  *  ) 

0964  IF  ((.NOT.  STS)  .AND.  (STS  NE.  RMSA.FNF) ) 

0966  4  CALL  LIBASIQHAK  XVAL(STS)  ) 

0966  I 

0967  I  Qot  a  handle  on  STSIINPUT. 

0968  I 

0969  READ.STS  ■  SMGICREATE.V IRTUAL. KEYBOARD  (  KBDID  ) 
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0970 

0971 

0973 

0973 

0974 

097S 

0976 

0977 

0976 

0979 

0980 

0981 

0983 

0983 

0984 

098E 

0986 

0967 

0988 

0989 

0990 

0991 

0993 

0993 

0994 

0996 

0996 

0997 

0001 

0003 

0003 

0004 

0006 

0006 

0007 

0008 

0460 

0616 

0617 

0616 

0619 

0630 

0631 

0633 

0633 

0634 

0636 

0636 

0637 

0638 

0639 

0630 

0631 

0633 

0633 

0634 

0636 

0636 

0001 

0003 

0003 

0004 

0006 

0006 


The  alia  proceeding  loop.  Koop  reading  Input  until  the  soar  type*  EOF 
00  WHILE  (  RE1D.STS  .RE.  RMSl.EOF  } 

Road  f rom  input  and  paraa  the  coanand . 

READ.STS  ■  CLIIDCL.PARSEC, 

*  COMAND.TABLES , 

*  OET.INPUI, 

*  GET. INPUT, 

*  *SHADQW>  ■  ) 

If  tha  cenmand  paraa  vaa  aucceaiful,  axaeuta  tha  conand-routlne. 

IF  (  .NOT.  (.NOT.  EEAD.STS)  )  CALL  CLIlDISPATCHO 


Cat  rid  of  tha  virtual  keyboard. 

STS  •  SMCIDELETE.VIRTUAL_KEYBOARD(  XBDID  ) 

IF  (  1I0T.  STS  )  CALL  LIB|SIG1IAL(  XVALCSTS)  > 


RETURN 

END 


INTEGER*! 


FUNCTION  CET.INPUK  COMMAND,  PROMPT,  LENGTH  ) 


CM!  Ihla  routine  doaa  all  tha  reading  for  tha  tarainal  interface. 

Clll  It  baa  tha  aajua  calling  format  aa  LIBIGET. INPUT  except  that  optlona 
C!l!  parameter*  may  not  be  omitted. 


INCLUDE  • (tRMSDEF) 1 
INCLUDE  ' SHACOM . FOR ' 

EXTERNAL 

♦  SMGI.EOF 

CHARACTER* (*) 


INTEGER 


I  The  linker  flnde 

COMA  HD. 

PROMPT 

LENGTH'S. 

SMG|READ_C0MP0SED_LINE*4 


I  Read  a  (composed)  line  and  raturn  the  etatua  to  CLII  atuff . 

I 

CET.INPUT  •  SNGIREAD.COMPOSED.LINE  ( 

*  XBDID, 

*  EETTBL, 

4  COMMAND, 

4  PROMPT, 

4  LENGTH  ) 

IF  (  CET.INPUT  .Efl.  XLOC(  SMCI.EOF  )  )  CET.INPUT  -  RMSl.EOF 


RETURN 

END 

C . 

INTEGER*!  FUNCTION  PUT.OUTPUT  (  STRING  ) 

cm 

Clll  Thla  routine  doaa  all  tha  writing  for  the  terminal  interface. 
Clll  It  kaa  the  aame  calling  formnt  a*  LIBIPUT.OUTPUT . 

Clll 
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0007 

INCLUDE  'SHACOM.FOR 

0173 

CHARACTER* (*) 

0174 

♦ 

STRING 

0176 

INTEGER*! 

0170 

0177 

♦ 

1 

LIBIPUI.OUTPUT 

0178 

0179 

1  Bead  ■  lln# . 

1 

0180 

0181 

PUT.OUTPUT  ■=  LIBIPUT.OUTPUT 

! 

(  STRING  ) 

0183 

0183 

1  Th#r#  ehonld  be  no  error#  har#. 

1 

Signal  IT  thara  ara  any. 

0184 

0186 

IF  (NOT.  PUT.OOTPDI)  CALL  LlBtSIGHALC  Xval (PUT.OUTPUT)  ) 

1 

0188 

0187 

1  Return. 

1 

0188 

RETURN 

0189 

END 
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Interactive  Service  Routines 


The  following  routines  are  used  ONLY  in  the  interactive  version  of  the  code  and  are 
operating  system  dependent.  They  provide  functions  and  service  routines  for  the  interactive 
commands. 

0001  cm  n  tt  n  m  m  m )  m  n  m  mi  1 1 1 1 1  m  m  1 1 1  m  m  1 1  m  1 1  m  1 1 1 1  m  m  1 1 1 

0002  ci 

0003  Cl  Tha  ayataa-dapandant  atnff  goaa  balow  kara. 

0004  Cl 

0006  Cl  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  III  1 1  III  1 1  III  1 1 1 1  III  1 1 1  III  1 1 1 1 1 1 1 1 1 1 1 1 1 
0006  Cl 
0007  Cl** 

0008  Cl 

0000  Cl  FUNCTIONAL  DESCRIPTION: 

0010  Cl 

0011  Cl  Thaaa  function*  ara  tha  action  rootinaa  invokad  by  tha  VERB  which 

0013  Cl  followa  froa  tha  on  aach  rootlna. 

0013  Cl 

0014  Cl  CALLING  SEQUENCE : 

0016  Cl 

0016  C!  rat-atatua  wlc.da  *  rontlna  (  ) 

0017  Cl 

0016  Cl  FORMAL  PARAMETERS: 

0019  Cl 

0030  Cl  HONE 

0021  Cl 

0032  C!  IMPLICIT  INPUTS: 

0023  Cl 

0024  Cl  FUNCTION  SPECIFIC 
0026  Cl 

0026  C!  IMPLICIT  OUTPUTS: 

0027  Cl 

0028  Cl  FUNCTION  SPECIFIC 

0020  Cl 

0030  Cl  COMPLETION  STATUS: 

0031  Cl 

0032  Cl  FUNCTION  SPECIFIC 

0033  Cl 

0034  Cl  SSI.NORMAL  Snccaaa,  or 

0036  Cl  facl.atatna  aoaa  othar  atatna 

0036  Cl 

0037  Cl  SIDE  EFFECTS: 

0038  Cl 

0030  Cl  VARIBLE 

0040  CI-- 

0041  INTEGER  FUNCTION  SERVICE.ROUTINES 

0042  IMPLICIT  NONE 

0043  PARAMETER  SUCCESS  -  1 

0044  INCLUDE  ' (tSSDEF) /NOLIST'  I  Inelnda  ayataa  atatna  daflatlena 

1036  INCLUDE  ’  WACOM .  FOR/LIST  ’  I  Inelnda  SHADOW  ccaaaon  block 

1036  1  CHI 

1037  1  Cl  1 1  COMMON  doclaratlona . . . 

1038  1  Cl  1 1 

1030  1  COWON  /PIS/ 


1040  1  ♦  PI, 

1041  1  ♦  TPI, 

1042  1  ♦  DPR, 

1043  1  *  RPD 

1044  1  CHI 
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1046  1  C***  MAXIMUM  DIMENSION  FOR  PLATES 

1046  1  INTEGER  NPX 

1047  1  PARAMETER  (NPX-76) 

1048  1  MAXIMUM  DIMENSION  FOR  PLATE  EDGES 

1049  1  INTEGER  NEX 

1060  1  PARAMETER  (NEX=12) 

1061  1  <!♦♦♦  MAXIMUM  DIMENSION  FOR  CYLINDERS 

1062  1  INTECER  NCI 

1063  1  PARAMETER  (NCX-6) 

1064  1  C++*  MAXIMUM  DIMENSION  FOR  CYLINDER  RIMS 

1066  1  INTEGER  NNX 

1066  1  PARAMETER  (HNX-10) 

1067  1  C***  MAXIMUM  DIMENSION  FOR  ROWS  (PHI) 

1068  1  INTEGER  MAXROW 

1069  1  PARAMETER  (MAXR0W*361) 

1060  1  C***  MAXIMUM  DIMENSION  FOR  COLUMNS  (THETA) 

1061  1  INTEGER  MAXCOL 

1062  1  PARAMETER  (MAXC0LM81) 

1063  1  cm 

1064  1  COWON  /CEOPLA/ 

1066  1«  XX  (3, NEX, NPX), 

1066  14  V  (3, NEX, NPX). 

1067  14  VP  (3, NEX, NPX), 

1068  1  ♦  VN  (3. NPX), 

1069  1  ♦  MEP  (NPX) , 

1070  I*  MPX 

1071  1  cm 

1072  1  COMMON  /CEOMEL/ 

1073  1  ♦  AC  (HHX.HCX), 

1074  1  4  BC  (NNX.NCX), 

1076  14  ZC  (NNX.NCX), 

1076  1  *  ICR  (NNX.NCX), 

1077  1  4  XCL  (3.NCX), 

1078  1  ♦  VCL  (3, 3, HCX) , 

1079  1  4  NEC  (NCX) . 

1080  1  «  MCI 

1081  1  cm 

1082  1  COMMON  /EDMAG/  VMAG(NEX.NPX) 

1083  1  cm 

1084  1  COMMON  /SHADVN/  COLS.  ROWS,  ANTENN(3) ,CTR0ID(3) , 

1086  1  4  MP,ME,NEXTME,MC, 

1086  1  4  THET1 , THET2 , PHI , PH2 , RESTH , RESPH , ALPH , 

1087  1  4  UNIK3)  ,TRS(3) , VRS(3,3) , IUNIT.ONITF, UNITS, UN 

1088  1  ♦  THZP , PHZP , THXP , PHXP , FILPNM , FILCNM 

1089  1  COMMON  /SHADWC/  INPFIL, DUTBUF (MAXCOL, MAXROW) , 

1090  1  4  FILCHC , FILCHP .FILCHR 

1091  1  CII! 

1092  1  COMMON  /PATCUT/  VPC(3,3) 

1093  1  cm 

1094  1  cm  Tko  fir  it  eat  of  daclaratloaa  la  tha  staff  la  /SHADOW/  c  canon  bloc 

1096  1  cm 

1096  1  INTEGER 

1097  1  4  MP,  ME,  NEXTME,  MC, 

1098  1  Cl  Plats8/adga8/cyl9  variables. 

1099  1  4  FILPNM,  FILCNM, 

1100  1  Cl  Plata  aad  cyl  aaabara  for  apodal  filling 

1101  1  «  COLS, 

1102  1  Cl  Tko  alia  of  tho  array  aabaactloa  dateralaad 

1103  1  4  ROWS 

1104  1  Cl  by  lataraal  raaolatloa  raqalraanats . 

1106  1 

1106  1  REAL 

1107  1  4  CTROID, 

1108  1  Cl  A  gaonotrle  caatar  of  tko  object  la  qaastloa. 
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1109 

1110 
1111 
1113 

1113 

1114 
1116 
Hit 
1117 

ilia 

1119 

1130 

1131 
1133 

1133 

1134 

1136 
1130 

1137 

1138 
1130 

1130 

1131 
1133 

1133 

1134 

1136 
1130 

1137 

1138 
1130 

1140 

1141 
1143 

1143 

1144 

1146 
1148 

1147 

1148 
1140 
1160 
1161 
1163 

1163 

1164 
1166 
1160 

1167 

1168 
1160 
1180 
1181 
1183 

1183 

1184 
1186 
1188 

1187 

1188 
1188 

1170 

1171 
1173 


1  «  AHTENH , 

1  Cl  The  antenna  location  In  &af  Coord.  Syataa. 

1  ♦  THET1. 

1  Cl  Tha  lower  theta  and  of  the  range. 

1  ♦  THET3, 

1  Cl  Tha  higher  thata  and  of  tha  rango. 

1  ♦  PHI, 

1  Cl  The  lowar  phi  and  of  tha  range. 

1  ♦  PH3, 

1  Cl  Tha  higher  phi  and  of  tha  range. 

1  ♦  RESTH, 

1  Cl  Tho  daalrod  thata/phi  resolution 
1  *  RESPH, 

1  Cl  in  nnita  of  radiana/plxal . 

1  ♦  ALPH 

1  Cl  Maxima  allowed  angular  axcuraian. 

1 

1  CHARACTER 

1  ♦  OUTBUF* 1 , 

1  Cl  Tha  output  buffer  which  la  dlaplayad. 

1  ♦  INPFIL*63, 

1  Cl  Tho  fllanaae  of  tha  input  aat. 

1  ♦  FILCHC, 

1  Cl  apaclal  fill  character  for  cylinders 
1  ♦  FILCHP, 

1  Cl  special  fill  character  for  everything  else 
1  ♦  FILCHR 

1  Cl  special  fill  character  for  plates 
1  DATA  FILCHC.  FILCHP.  FILCHR  /  *C\  *P\ 

1  CHI 

1  Clll  From  the  /PIS/  COMMON  block... 

1  Clll 

1  REAL  PI.  TP I ,  DPR.  RPD 

1  cm 

1  cm  From  the  /CEQPL1/  COMMON  block.  .  . 

1  cm 

1  IRTECER 

1  *  MEP. 

1  Cl  Huabar  of  adgaa  par  plate 
1  ♦  MPX 

1  Cl  Total  naaber  of  plates 
1  REAL 

1  ♦  XI. 

1  Cl  The  array  of  plate  cornera 
1  ♦  V. 

1  Cl  Edge  anlt  vectors 
1  ♦  VP. 

1  Cl  Edge  anit  blnoraala 
1  ♦  VH 

1  Cl  Halt  aoneal  for  each  plats 
1  Clll 

1  Clll  Frsa  the  /QEOICL/  C9MM0R  block. . . 

1  Clll 

1  IRTECER 

1  ♦  EEC. 

1  Cl  Ember  of  sectloaa  per  cylinder 
1  ♦  MCI 

1  Cl  fatal  amber  of  cylladere 
1  UAL 

1  *  AC, 

1  Cl  Elliptic  paraaetsr  along  x-axla 
1  *  BC. 

1  Cl  Elliptic  parameter  along  jr-axls 
1  ♦  ZC, 


•X1  / 
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1173 

1  Cl  Cylinder  endcnps  la  cyl  coord  oyo 

1174 

1 

♦  ICR, 

1176 

1  Cl 

Inglo  ondcap  Bakes  with  poaltivo  i 

axis 

1176 

1 

*  XCL , 

1177 

1  Cl 

Cyl  coord  ay*  origin 

1178 

1 

•*  VCL 

1170 

1  Cl 

Definition  of  cyl  coord  aya 

1180 

1  Cl 

1181 

1 

IRIEOER 

1183 

1 

♦  iunit 

1183 

1 

REAL 

1184 

1 

♦  unitf, 

1186 

1 

♦  UNITS, 

1188 

1 

♦  UNITN, 

1187 

1 

♦  UNIT, 

1188 

1 

♦  IRS, 

1180 

1 

♦  IHZP.PHZP, 

THXP.PHXP, 

1100 

1 

♦  VRS, 

1101 

1 

♦  VPC, 

1103 

1 

*  VMAC 

1103 

1 

DATA  ONII/i. , .3048,0.0364/ 

1104 

1  Cl 

1106 

i  cm* 

1106 

1  CII1  Tho  following  ceanon  block  la  for  VMS/SMGt  aoftwaro  only. 

1107 

1  cm 

1108 

1 

INTEGER 

KBDID,  KEYTBL 

1100 

1 

COMdOH  /  TERCOM/ 

KBDID,  KEYTBL 

1300 

i  cm- 

1301 

EXTERNAL 

1303 

♦  PUOUTPUT,  GET. INPUT, 

I  My  own  tSMC-typs  I/O  rontlnaa 

1303 

♦  CLII.PRESEHT , 

1 

1304 

♦  CLII.NEGATED, 

1 

1306 

♦  CLII.LOCPRES, 

1  locally  praaant 

1306 

♦  CLIt.LOCNEG, 

1  locally  nogatad 

1307 

♦  CLI8.DEFAULTED, 

1308 

♦  CLIt. ABSENT, 

1300 

♦  CLII.IWALU 

1310 

1311 

CHARACTER 

1313 

♦  Pl»80, 

1  Coanand  lino  variable 

1313 

4  P3*80, 

I 

1314 

4  UNCHAR* 1, 

1  A  character 

1316 

4  LIBRARY'S! , 

1  Naaa  of  the  help  library  la  dafa 

1316 

4  LABEL(3)*6  1 

Unlta 

label 

1317 

4  /' asters', 

'foot  •  ’inch**'/, 

1318 

4  FILE  *60, 

1  Taaproary  fila  variable 

1310 

4  PRTFIL*60, 

I  Printable  fila 

1330 

4  LISFIL*60, 

1  Input  echo  Hating 

1331 

4  0UTFIL*60 

1  "Plottabla*  ontpnt  file 

1333 

i 

1333 

DATA  IUNIT/1/ 

1334 

1336 

L0GICAL*4 

1336 

*  VALID.INPUT, 

1  A  loop  control  variable 

1337 

*  CLIIPRESENT, 

1  CL I  Interface  to  gat  Info  abost 

1336 

4  CLIIOET.VALUE 

1  CLI  interface  to  gat  Info  abost 

1330 

1330 

REAL*! 

1331 

4  D0T,DZI,XQ(3) 

1333 

INTEGER*! 

1333 

4  R.NI.IJ.BTS, 

1  sordid  variables . . . 

1334 

*  KEYPAD, 

1  Keypad  condition  flag 

1336 

i 

1336 

i 

Oaaoral  library  roatlaoa 
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1237 

1 

1238 

1239 

♦  LBR10UTPUT.HELP,  1  The  librarian  halp  roatina 

1240 

*  8MClSET.KETP4D.M0DE,  1  Seraan  wnagaaant  pacing a 

1341 

1 

1242 

1 

•SET/SHOW"  roatlnee 

1343 

1 

1244 

♦  SET.4NT,  SET.OUT, 

SET.COO, 

1246 

♦  SET .PAT,  SET.SCA, 

SET.WIN , 

1346 

♦  SET.KET ,  SET.IHP, 

SET.UNI.ME 

1247 

♦  SET.UNI.INCHES,  SET.OHI.FEET, 

1248 

*  SHOW. ANT,  SHOW. OUT, 

SHOW.COO, 

1240 

♦  SHOW.PAT,  SHOW.SCA , 

SHOW.WIN , 

1360 

a  SHOW.KET ,  SHOW.INP, 

1261 

♦  SHOW.ONI , 

1263 

! 

1263 

1  rarloaa  coaanand  roatlnee 

1264 

1 

1366 

*  EIIT.COKHAND,  HELP.CDI+tAND ,  DCL. COMMAND . 

SHADOW.COM 

1266 

1367 

ciitiHiiiiiitiimiiiiiiiiiimiimiimmitiiiiiiimiiimiiiimii 

1268 

Cl 

1260 

Cl 

Thla  roatina  aata  tha  carrant  fill  charactera  balng  aaad  for  platan 

1260 

Cl 

or  eylladara. 

1261 

Cl 

1362 

ENTRY  SET.FIL 

1263 

IF  (  CLIIPRESENTC  ‘SEQUENTIAL’  )  )  THEN 

1364 

Cl 

1266 

Cl 

Raaat  tblaga  to  thalr  dafaalt  atnte 

1266 

Cl 

1267 

FILPNM  *  -1 

1268 

FILCIIM  -  -1 

1260 

FILCHP  «  ‘P‘ 

1370 

FILCHC  ■  *C‘ 

1371 

FILCHR  «  ‘K‘ 

1272 

Cl 

1273 

C! 

To  avoid  acrawiag  op  tha  toat  la  SCAN,  aaa  a  charaetar  that  will 

1274 

Cl 

not  ba  aaad  by  tha  fill  procaaa.  Ilka  char  7. 

1376 

C! 

Sat  a  plata  ap  for  tagging 

1376 

Cl 

1277 

.ELSEIF  (  CLIIPRESENTC  'PLATE'  )  }  THEN 

1278 

C! 

1270 

Cl 

Clear  any  cylinder  tailing  raaidaa. 

1280 

Cl 

1281 

FILCNM  •  0 

1382 

FILCHC  ■  'C* 

1283 

Cl 

1284 

Cl 

Oat  tha  water  fill  character. 

1286 

Cl 

1286 

CALL  CLIIGET.VALUEC  'P2',  FILCHR  ) 

1387 

Cl 

1288 

Cl 

Oat  tha  qaallf lar  aawral  valae.  STS  la  being  aaad  for  the  length  of 

1280 

Cl 

and  tha  atataa  of  tha  dacoda. 

1200 

Cl 

1201 

IF  (  CLIIGET.VALUEC  ’PLATE',  P2,  STS  )  )  THEN 

1202 

DECODE  CSTS.1.P2.I08TAT-STS)  FILPNM 

1303 

ELSE 

1304 

STS  ■  -1 

1206 

END  IF 

1206 

Cl 

1207 

Cl 

Oat  tha  fill  charaetar  for  that  plata.  Uao  a  'P'  If  aoaa  la  glvon. 

1208 

Cl 

1200 

IF  (  STS  IE.  0  )  THEN 

1300 

SET.FIL  ■  tLOCC  CLIt.IWALO  ) 
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1301  ELSE 

1303  IF  (  MOT.  CLI$GET_VALUE('PLATE'  .FILCHP)  )  THEM 

1303  FILCHP  «  ' P' 

1304  ENDIF 

1306  END IF 

1306  Cl 

1307  C!  Sat  a  cyllndar  ap  for  tagging. 

1303  Cl 

1309  ELSEIF  (  CLI»PRESEHT(  'CYLINDER'  )  >  THEN 

1310  Cl 

1311  Cl  Claar  any  cyllndar  tagging  raaldua. 

1313  Cl 

1313  FILPMM  •  0 

1314  FILCHP  ■  'P' 

1316  Cl 

1316  Cl  Cat  tha  aaatar  fill  eharactar. 

1317  Cl 

1316  CALL  CLI6GET .VALUE (  'P3‘ ,  FILCHR  ) 

1319  Cl 

1330  Cl  Gat  tha  qoalifiar  mineral  valua.  STS  la  balng  naad  for  tha  langth  of 

1331  Cl  and  tha  atatna  of  tha  daeoda. 

1333  Cl 

1333  IF  (  CLI$GET_VALUE(  'CYLINDER',  P3,  STS  )  )  THEN 

1334  DECODE  (STS,1,P3,I0STAT*STS)  FILCHM 

1336  ELSE 

1336  STS  «  -1 

1337  EHDIF 

1338  Cl 

1339  Cl  Cat  tha  fill  eharactar  for  that  cyllndar.  Uaa  a  'C'  if  nona  la  glvan 

1330  Cl 

1331  IF  (STS  NE.  0  )  THEN 

1333  SET.FIL  «  *L0C(  CLII.IWALU  ) 

1333  ELSE 

1334  IF  (  .NOT.  CLI»GET_V1LUE(  'CYLINDER' ,  FILCHC  )  )  THEN 

1336  FILCHC  -  'C' 

1336  EHDIF 

1337  EHDIF 
1336  Cl 

1339  Cl  Tha  alaa  hara  la  for  a  "SET  FILL  [x]"  connand. 

1340  Cl 

1341  ELSE 
1343  Cl 

1343  Cl  Gat  tha  aaatar  fill  eharactar. 

1344  C! 

1346  CALL  CLI*GET_VALUE(  'F3',  FILCKR  ) 

1346  Cl 

1347  C!  End  of  caaaa. 

1348  Cl 

1349  EHDIF 

1360 

1361  GOTO  3 

1363  1  FORMAT (  I  ) 

1363 

1364  Cl  III  III  1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II I II I  III  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

1366  Cl 

1366  Cl  Thla  reatlna  dlaplaya  tha  entrant  fill  charactara  balng  naad  for  plat 

1367  Cl  or  cyllndara. 

1368  Cl 

1369  ENTRY  SH0M.F1L 

1360  Cl 

1361  Cl  Aline  anccaaa  aaly  whan  tha  8H0V  connand  la  balng  axaentad. 

1363  Cl 

1363  SHOV.FIL  ■  SUCCESS 

1364  Cl 
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1366  Cl  Exaain*  th»  plat*  *110111011. 

1366  Cl 

1367  3  IF  (  FILPNM  Cl.  0  )  THEN 

1368  WRITEW.FMT-’C*  Plat*  ,,.I3,“  1*  taggad  with  [".A,")")’) 

1369  4  FILPNM,  F1LCHP 

1370  nHTE(a,FMT*'("  111  other  gaonatry  tagged  with  ["  ,A,  ")  ")  ') 

1371  *  FILCHH 

1372  ENDIF 

1373  Cl 

1374  C!  Examine  th*  cylinder  iltoatlon. 

1376  Cl 

1376  IF  (  FILC1IM  .Cl.  0  )  THEN 

1377  WRITE(2,FMT«'  (‘  *  Cylinder  ".13."  t»gg*d  with 

1378  ♦  FILCNM,  FILCHC 

1379  VRITE(2,FMT«* ('  ’  All  oth*r  geometry  taggad  with 

1380  4  FILCHR 

1381  ENDIF 

1383  Cl 

1383  Cl  Check  on  a  no-tag  backgroong  eharaetar  altoatlon. 

1384  Cl 

1386  IF  (  (FILCNM  EQ  0)  AND.  (FILPNM  EQ  0)  >  THEN 

1386  WRITE(2,FMT*’ (' '  No  individual  plataa/cylldara  ar*  taggad'')') 

1387  WR1TE(2,FMT*'  (’ '  All  gaoaatry  aarkad  by  I‘  ’  ,A,  FILCHR 

1388  ENDIF 

1389  Cl 

1390  C!  Report  tha  aaqoantlal  nnabaring  eaaa. 

1391  C! 

1392  IF  (  (  FILCNM  . LT.  0  )  .AND.  (  FILPNM  .LT.  0  )  ) 

1393  *  WRITE(2,FMT«'  ('  *  All  cyllndara/plataa  aequentially  taggad")’) 

1394  Cl 

1396  RETURN 

1396 

1397  C! 1 1 1 1 1 1 1 1  III  1 1 1 1 1 1 1 1 1 1  III  1 1 1 1 1 1 1 1 1 1  III  1 1 1 1 1  III  1 1 1 1 1  III  1 1 1 1 1 1 1 1 1 1 1 1  III  1 1 

1398  Cl 

1399  Cl  Thla  rootln*  aat*  th*  antanna  location. 

1400  Cl 

1401  EIITRT  SET.  ANT 

1402  WRITE  (3.FMT-’ (II,  "Input  antanna  location  in  ",A6,":  ’ ’,!)’) 

1403  «  LABEL(IUNIT) 

1404  READ  (1,«)  ANTENU(l)  ,  AHTENII  (2)  ,  AN  TEH  H  (3) 

1406  Cl 

1406  Cl  Perform  appropriate  unit*  convaraion  her*. 

1407  Cl 

1408  DO  3424  H«l,3 

1409  3434  iq(N)-ANTEHNOl) 

1410 

1411  DO  3426  N*1 ,3 

1413  3426  AHTENII  (II)  »0NITS» 

1413  4  (  iq(l)*VRS(l,N)  4  tq(2)*VRS(2,N)  ♦  iq(3)*VRS(3,N)  )  4  TRS(N) 

1414 

1416  8ET.ANT  >  SUCCESS 

1416  Cl 

1417  Cl  Thla  rootln*  dlaplaya  th*  corrant  antanna  poaition. 

1416  Cl 

1419  ENTRT  SHOW.ANT 

1430  Cl 

1431  Cl  Traaafora  th*  antanna  back 

1423  Cl 

1433  DO  N*l,3 

1434  iq(I)  -  (  (ANTENN(l)-TRS(l))  *  VRS(N.l)  4 

1426  4  (AWTEHN(2)-TRS(2))  •  VRS(N,3)  4 

1436  4  (ANTENN (3) -TRS (3) )  •  VRS(N,3)  )  /UNITS 

1437  HD  DO 

1438  Cl 
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1439 

1430 

1431 
1433 

1433 

1434 
1436 

1436 

1437 

1438 

1439 

1440 

1441 
1443 

1443 

1444 
1446 

1446 

1447 

1448 

1449 

1460 

1461 
1463 

1463 

1464 
1466 

1466 

1467 

1468 

1469 

1460 

1461 
1463 

1463 

1464 
1466 

1466 

1467 

1468 

1469 

1470 

1471 
1473 

1473 

1474 
1476 

1476 

1477 

1478 

1479 

1480 
1461 
1483 

1483 

1484 
1486 

1486 

1487 

1488 

1489 

1490 

1491 
1493 


WRITE(3,FMT*‘ ( ’  ‘  Antenna  Is  RCS  (utiri)  :  “,3F13  6)’)  4NTENN 
WRITE(3,FMT*‘  (' 1  Definit  ayetea  ",3F13.6)‘) 

♦  LABEL (IUN IT) ,  IQ 

SHOW.ANT  ■  SUCCESS 
RETURN 

Cl  1 1 1 1 1 1 1  M  II II I  It  II 1 1 1 1 1 II 1 1 !  I II 1 1 1 1 1 1 1 1 1 1111 1 1  HI)  II  111  (111  Mill  1111 11 
Cl 

Cl  Proceea  a  saw  input  cat.  Inquire  about  tka  full  nana 
Cl 

E1ITRT  SET.  I  HP 

CALL  CLI»GET_VALUE(  ‘P3‘ .  FILE  ) 

OPEN  (  U!IIT»6,  FILE=FILE,  DEFAULTFILE*'  .INP' ,  STATUS* ' OLD • ) 

CALL  ABSCIN 
SET.INP  «  SUCCESS 
Cl 

C!  Thia  routlna  dlaplaya  tka  currant  Input  aat  naoa. 

Cl 

ENTRY  SHOW.INP 

INQUIRE  (  UNIT*6,  NAME=INPFIL  ) 

TYPE  *,  ‘Tka  currant  input  aat  la  INPFIL 
SHOW.INP  *  SUCCESS 
RETURN 

Cl  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1|  1 1 1 1 1 1 1 1  H  1 1 1 1 1 1 1 1 1 1 1 1 1)  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
C! 

C!  Tkla  routlna  togglaa/raport  kaypad  mod* 

Cl 

ENTRY  SET.KEY 

IF  (  .NOT.  CLI(PRESEHT(  ‘ KEYPAD.MODE '  )  )  THEN 
KEYPAD  -  0 
ELSE 

KEYPAD  *  1 
END  IF 

SET.KEY  *  SMGISET. KEYPAD.MODE (  KBDID.  KEYPAD  ) 

Cl 

Cl  Thia  routlna  dlaplaya  tka  currant  kaypad  aoda. 

Cl 

ENTRY  SHOW.KEY 
IF  (  KEYPAD  EQ.  0  )  THEN 

VRITEO,*)  'Tka  keyboard  in  not  In  kaypad  aoda.' 

ELSE 

WRITEC3,*)  'The  keyboard  la  in  kaypad  aoda.' 

END  IF 
RETURN 

Cl  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , 1 1 1 1 1 1 ,, | , 1 1 ,, 1 1 1 , 1 1 

Cl 

Cl  Sat  op  a  coordinate  ayataa 
Cl 

ENTRY  SET.COO 

cm 

cm  TRS(N) 'LINEAR  TRANSLATION  OF  COORDINATES  FROM  THE  FIXES 
cm  COORDINATES  WHICH  IS  ORIGINALLY  SET  UP  BY  OPERATOR 

cm 

TYPE  3931 , LAB EL(IUNIT) 

8931  FORMAT ('  Plaaaa  Input  a  traaalatlon  vector  In  ',46,’  ') 

accept* ,  <TRS(N),N«1,S) 

DO  3930  N«l,3 
3930  TRS(N}*TRS(N) ‘UNITS 

cm 

Cttl  TH2P,PH2P*0RIENTATIDN  OF  THE  VES(3,N)  AXIS  RELATIVE  TO  THE 
CHI  FIXES  COORDINATE  SYSTEM. 

cm 


140 


1493  Cltl  THXP ,PHXP=ORIENTATION  OF  THE  VRS(l.N)  AXIS  RELATIVE  TO  THE 

1494  CHI  FIXED  COORDINATE  SYSTEM. 

1495  CMI 

1496  133  contlnae 

1497  type* ,  'Pleaae  Input  THZP , PHZP , THXP , PHXP  In  digram:  ‘ 

1496  accept* ,  THZP , PHZP , THXP , PHXP 

1499  VRS(3, 1)*SIN(THZP*RPD)*C0S(PHZP*RPD) 

1500  VRS(3,2)*SIM(THZP*RPD)*SIN(PHZP‘RPD) 

1601  VRS (3 , 3) *COS (THZP*RPD) 

1603  VRS( 1 . 1)«SIN (THXP*RPD) *COS(PHXP*RPD) 

1603  VRS(1 ,2)*SIN(THXP*RPD) *SIH(PHXP»RPD> 

1604  VRS(1.3)»C0S(THXP*RPD) 

1606  Cltl  INSURE  VRS(l.N)  IS  PERPENDICULAR  TO  VRSC3.N) 

1606  DZX*VRS(3 , 1) *VRS(1 , 1)*VRS(3,2) »VRS(1 , 2) *VRS(3 , 3) »VRS(1 ,3) 

1607  1F(ABS(DZX)  CT.O.i)  THEN 

1608  TYPE*,  'The  coordinataa  ara  HOT  orthogonal  -  Raapaclfy. ' 

1609  goto  133 

1610  ELSE 

1611  VRS(1.1)*VRS(1.1)-VRS(3.1)*DZX 

1613  VRS(1 ,2)*VRS(1 ,2) -VRS (3 ,3) *DZX 

1613  VRS(1 , 3)*VRS(1 , 3) -VRS (3, 3) *DZX 

1614  DOT*VRSd  ,  1)*VRS(1 , 1)  «VRS(1 , 2)  *VRS<1 ,2)  *VRS(1 ,3)  *VRS(1 ,3) 

1616  DOT*SQRT(DOT) 

1616  VRS(1 , 1)*VRS(1 , 1) /DOT 

1617  VRS  d.  2) -VRS  d.  3) /DOT 

1618  VRS(1 ,3)rVRS(l ,3)/D0T 

1619  VRS(2, 1)*VRS(3,2) *VRS(1 ,3) -VRS (3 ,3) »VRS(1 ,2) 

1620  VRS(2,2)-VRS(3.3)*VRSd1l)-VRS(3,l)*VRS(1.3) 

1631  VRS (2, 3)* VRS (3, 1) *VRS(1 ,2)-VRS(3,2)*VRS(l , 1) 

1622  HRITE(6.3931) 

1623  END  IF 

1624  Cl 

1626  C!  Diaplay  tha  coordinataa 

1626  C! 

1627  ENTRY  SHOV.COO 

1628  C! 

1629  3931  F0RMATC2H  *,6X,'Tha  following  rotatlona  ara  naad  for  ALL', 

1630  2‘  eabaaqnent  inpate : ‘ , T79, 1H*) 

1631  DO  3932  NI-1,3 

1632  3933  WRITE(6.3933)  (HI ,NJ , VRSCNI ,NJ) ,NJ=1 ,3) 

1633  3933  FORMAT (2H  * . IX ,3(2X . ' VRS( ' , II . ’ . '.II . ’ )*' .F9  6) ,T79, 1H*) 

1634  C! 

1636  RETURN 

1636 

1637  CH  II!  m  I !  I  III !!  t  II!  1 1  m  III  1 1  til  III  1 1 IH  !!! !  Ill  I  111  I  III  III  111  1 1 1 1  III  II 

1638  Cl 

1639  C!  aat  ap  pattarn  cat  coordinate  eyatem 

1640  Cl 

1641  ENTRY  SET.PAT 

1642  CM8 

1643  cm  THZP,PHZP*ORIENTATIOH  OF  THE  VPC(3,H)  AXIS  RELATIVE  TO  THE 

1644  Cltl  FIXED  COORDINATE  SYSTEM. 

1646  C8M 

1646  CtM  IHXP.PHXP-ORIENTATIOH  OF  THE  VPC(1,H)  AXIS  RELATIVE  TO  THE 

1647  Cltl  FIXED  COORDINATE  SYSTEM. 

1648  CHI 

1649  1334  contlnaa 

1660  typo*. 'Plaaaa  input  THZP , PHZP , THXP , PHXP  in  dagraaa : ' 

1661  accept*.  THZP, PHZP, THXP, PHXP 

1662  VPC(3.1)«SIN(THZP*RPD)*C0S(PHZP*RPD> 

1663  VPC(3 , 2) *BIN (TRZP*RPD) *8IN (PHZP*RPD) 

1664  VPC(3,3)*C0S(THZP*RPD) 

1666  VPC(1 . 1) *SIN (THXP*RPD) *C08 (PHXP»RPD) 

1668  VPC(1,2)-SIN(THXP»RPD)*SII(PHXP*RPD) 
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1667  VPC(1,3)-C0S(THXP*RPD) 

1668  CMI  INSURE  VPC(1,N)  IS  PERPENDICULAR  10  VPC(3,H) 

1669  DZX-VPCC3, 1) *VPC(1 ,  1) *VPC(3 ,3) *VPC(1 ,2) *VPC(3 ,3) *VPC(1 ,3) 

1680  IF(ABSCDZX)  CTO. 1)  THEN 

1661  TYPE*,  'Tha  coordlnataa  ara  NOT  orthogonal  -  Raapaclfy.' 

1663  goto  1334 

1663  ELSE 

1664  VPC(1,1)=VPC<1.1)-VPC<3,1)*DZX 

1666  VPC(1 ,3)-VPC(l ,3) -VPC(3,3) *DZX 

1666  VPC(1,3)-VPC(1,3)-VPC(3,3)»DZX 

1667  D0T=VPC(1 , 1) *VPC(1 , 1) +VPC(1 .3) »VPC(1 ,3) +VPCC1 ,3) *VPC(1 ,3) 

1668  DOT-SQRT(DOT) 

1689  VPC(1,1)»VPC(1,  D/DOT 

1670  VPC(1 ,3)=VPC(1 ,3) /DOT 

1671  VPC(1 , 3)=VPC(l ,3) /DOT 

1673  VPC(3, 1)*VPC(3 ,3)»VPC(1 ,3) -VPC(3,3) * VPC(1 , 3) 

1673  VPC(3, 3)-VPC(3,3) *VPC(1 , 1)-VPC(3 , 1) *VPC(1 ,3) 

1674  VPC(3,3)-VPC(3,1)*VPC(1,3)-VPC(3,3)*VPC(1,1) 

1676  VRITE(6,3931) 

1676  END  IF 

1677  C! 

1678  Cl  ra-dlaplay  tha  pattarn  cut  ayatam 

1679  Cl 

1680  ENTRY  SH0W_PAT 

1681  DO  NI-1 ,3 

1683  VRITE(6,4933)  (HI , NJ ,  VPC(NI  ,1IJ)  ,NJ-1 ,3) 

1683  END  DO 

1684  4033  FORMAT (3H  * ,  IX , 3(3X , '  VPC( ' .  11 . 1 .  Ml , ' )  =  '  ,F9 . 6)  ,T79, 1H») 

1686  RETURN 
1686 

1687  C! I  I  I  I  I  I  I  I  III  1 1  I  I  I  1 1  III  1 1 1 1  1 1 1 1 1 1  I  1 1 1 1  III  1 1  III  1 1  III  1 1 1  III  1 1 1  I  1 1  I 

1688  C! 

1689  C!  Thla  routlna  aata/dlaplaya  a  acala  factor. 

1690  C! 

1691  ENTRY  SET_SCA 

1693  WRITE  (3,*)  '  Plaaaa  Input  a  uniform  acala  factor 

1603  READ  (1,0  UNITF 

1604  UNITS  «  UNITN  *  UNITF 

1696  C! 

1696  Cl  Thia  antry  dlaplaya  tha  uniform  acala  factor. 

1697  C! 

1698  ENTRY  SHOW.SCA 

1699  WRITE  (3 , FMT« ‘ '  Tha  uniform  acala  factor  la  •,,F10.8)') 

1600  RETURN 

1601 

1603  C!  I  HI  1 1 !  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  III  HI  1 1 1 1 !  1 1 !  I  111  1 1 1 1 1 1 1 1  III  III 

1603  Cl 

1604  Cl  Thia  routlna  aata  tha  snlta  for  tha  program. 

1606  C! 

1606  C!  IUH IT  «  Indicator  of  snlta  aaad  for  lnpst  data. 

1607  C I 

1608  Cl  1 -METERS,  3-FEET,  3-INCHES 

1609  Cl 

1610  ENTRY  SET.UHI.METERS 

1811  IUH IT  »  1 

1613  COTO  3 

1613  ENTRT  SET.UNI.FEET 

1614  IUNIT  •  3 

1616  COTO  3 

1616  ENTRT  SET.UNI. INCHES 

1617  IUNIT  «  3 

1618  3  UNITN  -  UNIT(  IUNIT  ) 

1619  UNITS  *  UNITN  •  UNITF 

1630  RETURN 


llllll! 


UNITF 


1 1 1 1 1 1 1 1 


142 


1631 

1623  cn  ii  m  1 1  m  n  n  i  m  h  n  ii  1 1 1 !  1 1  n  m  i  m  1 1  n  m  n  n  m  m  n  i  ii  m  m  m  m 

1623  Cl 

1621  Cl  Thie  entry  show*  the  current  unite 
1636  Cl 

1626  ENTRY  SHOW.UNI 

1627  WRITE  (2,FMT*’(“  The  current  unite  ere  ".16)')  LABEL (  IUNIT  ) 

1628  RETURN 

1629 

1630  Cl  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

1631  Cl 

1632  Cl  Thle  routine  fete  the  window. 

1633  Cl 

1634  ENTRY  SET.WIN 
1636 

1636  VALID.INPUT  *  FALSE. 

1637  DO  WHILE  (  NOT.  VALID.INPUT  ) 

1638  I 

1630  TYPE*, ‘The  current  range  of  theta  in  degreee  le  THETl*dpr, 

1640  *  ‘  to  \THEI2*DPR 

1641  TYPE*.'wlth  a  reeolutlon  of  1 ,RESTH*DPR, *  degreee/pixel . * 

1642  TYPE*, ‘The  current  range  of  phi  In  degreee  ie  phl»dpr, 

1643  ♦  ‘  to  ‘ ,PH2*DPR 

1644  TYPE*, ‘with  a  reeolutlon  of  ' ,RESPH*DPR, ‘  degreee/pixel . ’ 

1646  I 

1646  TYPE* , 'Pleaee  enter  a  new  range  for  theta  (lower, higher) : ’ 

1647  ACCEPT*.  THET1.TKET2 

1648  THET1  *  THET1  •  RPD 

1649  THET2  *  THET2  •  RPD 

I860  I 

1661  TYPE* , ‘Pleaee  enter  a  new  THETA  raaolutlon  In  degreee/pixel:' 

1662  ACCEPT* .  RESTH 

1663  RESTH  *=  RESTH  »  RPD 

1064  I 

1666  TYPE* , ‘Pleaee  enter  a  new  range  for  phi  (lower .higher) : ' 

1666  ACCEPT*.  PH1.PH2 

1667  PHI  ■  PHI  •  RPD 

1668  PH2  •  PH2  •  RPD 

1669  I 

1660  TYPE* , ‘Pleaee  enter  e  new  PHI  reeolutlon  In  degreee/pixel:' 

1661  ACCEPT*.  RESPH 

1662  RESPH  *  RESPH  •  RPD 

1663  I 

1664  ROWS  *  INT(  (PH2  -  PHI)  /  RESPH  *0.5)  «  1 

1666  COLS  >  INK  (THET2  -  THET1)  /  RESTH  *  0.6  )  *  1 

1666 

1667  "U.D_ INPUT  -  (  NOT.  (ROWS  CT  MAXROW)  ).0R. 

1668  *  (NOT  (COLS. GT.MAXCOL)  ) 

1669  IF  (  NOT.  VALID.INPUT  )  WRITEC2, •) 

1670  *  '  Ineufflcient  dlaenelone  for  epeclfled  reeolutlon.' 

1671  END  DO 

1672  Cl 

1673  Cl  Show  the  window  paraaetera 

1674  Cl 

1676  ENTRY  SHOW.WIN 

1676  TYPE*, 'The  current  range  of  theta  In  degreee  la  THETl*dpr, 

1677  4  •  to  ' ,THET2*DPR 

1678  TTPE*,'wlth  a  reeolutlon  of  ' ,R£STH*DPR, '  degreee/pixel.' 

1679  TYPE*, 'The  current  range  of  phi  In  degreee  le  phl*dpr, 

1680  «  '  to  ' ,PH2*DPR 

1681  TYPE*, 'with  a  reeolutlon  of  ' .RESPH* DPR, •  degreea/pixel. ' 

1682  RETURN 

1683 

1684  Cl  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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less 

less 

1687 

lees 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 
1706 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 
1716 

1716 

1717 
1716 

1719 

1720 

1721 

1722 

1723 

1724 
1726 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 
1736 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 
1746 

1746 

1747 

1748 


Cl 

C! 

Cl 

Cl 

C! 

C! 

Cl 

C! 

Cl 

Cl 

Cl 

ct 


Cl 

Cl 

C! 

Cl 


C! 

C! 

C! 

Cl 


C! 

C! 

Cl 

Cl 


Cl 

Cl 

Cl 


C! 

C! 

Cl 


Thli  rout  In*  dotormlnoi  iuii  of  output  fllo*.  Horo  or*  tko  current 

aaaignaante 


Unit 

1 

2 

6 

6 

7 

10 


Moaning 

Interactive  Input 
Interactive  output 
Input  proceaeor  Input 
Input  proceaeor  (echo)  output 
printable  output  file 
"plot*  data  output  file 


Default  file  a 
eyellnput 
ayaloutput 
FILE. IMP 
FILE. LIS 
FILE. PUT 
FILE.PLT 


EHTR7  SET.OUI 

CALL  CLIICET.VALUEC  ‘P2‘.  FILE  > 


Only  If  /NOPLOT  la  apacifled,  than  dieeard  all  output  written  to  unit 
The  uaer  ehould  alwaya  get  plof table  output  by  default. 


IF  (  HOT.  CLUPRESENTC  'PLOT! ABLE' )  )  THEN 

OPEN (  UNIT-10,  FILE*'_NL:‘,  SIATUS-'OLD' .  FORM*' UNFORMATTED '  ) 
ELSE 

OPEM(  UNIT-10,  FILE*'  PLT' ,  DEFAULTFILE-FILE,  STATUS-'NEW . 

♦  FORM* '  U1IF0RMATTED 1  ) 

END  IF 


If  /PRINT  la  not  apacifled,  dlacard  all  output  written  to  unit  7. 
The  uaer  only  wante  to  aaa  the  line  printer  if  he  aeke  for  It. 

OPEN (  UNIT-7,  SIATUS-'OLD',  FILE-'.NL: *  ) 

IF  (  CLIIPRESENK  'PRINTABLE'  )  )  THEN 

OPEN (  UNIT-7,  DEFAULTFILE-FILE,  STATUS- 'HEW ,  FILE-'.PRT'  ) 

END  IF 

If  /NOECHO  ia  apacifled ,  the  Input  echo  la  dlacarded. 

The  near  ehould  get  an  echo  file  by  default,  juat  like  a  .PLT  file. 

IF  (  NOT.  CLUPRESENTC  ‘ECHOING'  )  )  THEN 
OPEN (  UNIT-6,  FILE-'.HL:',  STATUS-'OLD'  ) 

ELSE 

OPEN (  UNIT-6,  FILE-'. LIS',  DEFAULTFILE-FILE,  STATUS- ' NEW '  ) 

END  IF 


Now  retreiva  the  full  filename  for  future  reference. 


INQUIRE  C  UNIT  «  10, 
INQUIRE  (  UNIT  -  7, 
INQUIRE  (  UNIT  *  6. 
SET.OUT  -  SUCCESS 


NAME  *  OUTFIL  > 
NAME  -  PRTFIL  ) 
NAME  -  LISFIL  ) 


Thla  routine  dlaplaye  the  current  output  filee. 
ENTRT  SHOW.OUT 

TYPE  *,  'Plotting  file  ia:  \  OUTFIL 
TYPE  *,  ‘Printer  file  ia:  \  PRTFIL 
TYPE  *.  'Input  echo  file:  ',  LISFIL 
SHOW.OUT  •  SUCCESS 
RETURN 


ClllllltlllllllllllllllllllllllltlimilMIIIIMIIIIIIIIIIIIIIIIIIIIIIII 

Cl 

Cl  Thie  routine  atope  the  prograa 
Cl 

ENTRT  E1IT.C0WUND 
CALL  EXIT 
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174# 

IE TURN 

1760 

1761 

cmmmmmmmmmmmmimiitmmmmmmmmtm 

1762 

C! 

1763 

Cl 

This  root In*  servlets  online  help  requests. 

1764 

Cl 

1766 

ENTRY  HELP.COWUND 

1766 

LIBRARY  -  '  * 

1767 

PI  «  1  1 

1768 

CALL  CLI»CET_VALUE<  'PI'.  PI  ) 

1769 

CALL  CLI|GET_VALUE(  ’HELPLIB',  LIBRARY  ) 

1760 

HELP.COMMAND  ■  LBR|OUTPUT_HELP( 

1761 

♦  PUT.OUTPUT, , 

1  Help  output  rout 

1762 

♦  PI. 

1  Help  key  deecrip 

1763 

*  LIBRARY, , 

1  Help  library  nun 

1764 

♦  CET.INPUT  ) 

1  The  prompting  in 

1766 

RETURN 

1766 

1767 

Cl  1 1 1 1 1 1 1 1 1 1 1 1 1 1  •  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

1768 

Cl 

1769 

C! 

This  routine  calls  the  routines  which  do  the  shadowing. 

1770 

C! 

1771 

ENTRY  SHAD0W.C0W4AND 

1772 

TYPE*.  ‘Working  1 

Typo  an  Informational  me 

1773 

CALL  INITCF  1 

Initialise  next  plot 

1774 

CALL  DOPLAS  1 

Draw  the  plates 

1776 

CALL  DOCYLS  1 

Draw  the  cylinders 

1776 

CALL  WRTOUT  1 

Write  the  output  buffer 

1777 

SHADOW. COMMAND  *  SUCCESS 

1  Return  a  normal 

1778 

RETURN 

1779 

1780 

cm  nti!!i!  mi  ii  i!i!iiii  mi  iiiiiiiii  iif  inn  iiiiii  iiiiiiiiiiiiiiinii 

1781 

C! 

1782 

C! 

This  routine  executes  a  DCL  cownand  at  a  tubprocest.  Add  a  test  for 

1783 

C! 

bettor  behavior  with  blank  Pis. 

1784 

Cl 

1786 

ENTRY  DCL.COMMAND 

1786 

CALL  CLI|GET_VALUE(  -Pr,  PI  ) 

1787 

IF  (  PI  Eq  1  '  )  THEN 

1788 

DCL.COMMAND  >  LIB»SPAWN() 

1789 

ELSE 

1790 

DCL.COMMAND  «  IIB|SPA¥N(  PI  ) 

1791 

ENDIF 

1792 

RETURN 

1793 

C! 

1794 

Cl 

End  of  action  routines. 

1796 

C! 

1796 

END 
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10.2  Non- VAX/ VMS  Subroutines 

The  following  routines  are  for  the  non-interactive  implementations  of  the  code.  They  are 
used  in  conjunction  with  the  routines  in  this  chapter  that  are  common  to  both  versions. 


MAIN  PROGRAM  (non-interactive) 


This  is  the  main  routine  to  be  used  with  the  non-interactive  code. 


0001 

PROGRAM  SHADOW 

0002 

cm 

0003 

cm 

IBIS  COMPUTE  CODE  WAS  WRITTEN  AT  THE  OHIO  STATE  UNIVERSITY 

0004 

cm 

ELECTROSCIENCE  LABORATORY.  ANY  PROBLEMS  OR  COWOTS 

0006 

cm 

CAN  BE  REFERRED  TO: 

0006 

cm 

0007 

Cl  1 1 

RONALD  J.  MARHEFKA  OR  LASZLO  A.  TAXACS 

0008 

cm 

ELECTROSCIENCE  LABORATORY 

0009 

C! !  1 

1320  KIHNEAR  RD. 

0010 

cm 

COLUMBUS.  OHIO  43212 

0011 

cm 

PONE:  (614)  422-6762  OR  422-6848 

0012 

cm 

0013 

cm 

THIS  COMPUTER  CODE  CALCULATES  SHADOWING  OF  AN  ANTENNA 

0014 

cm 

USING  THE  NEC-BSC  INPUTS  NON-INTERACTIVELT . 

0016 

Cl  1  1 

IT  SHOULD  BE  USED  III  PLACE  OF  INTERACTIVE  MAIN  PROGRAM 

0016 

Cl  1  1 

WHEN  THE  SHADOW  CODE  IS  USED  ON  NON  VAX  COMPUTERS. 

0017 

cm 

0016 

INCLUDE  '  SHACOM .  FOR ' 

0184 

PARAMETER  (NSX*30) 

0186 

COMPLEX  WS 

0186 

LOGICAL  LRET 

0187 

COMMOH/SORART/WS(HSX) , XSS(3,NSX) ,MSA(2,NSX) , MSI , MSP , HSPP 

0188 

cm 

Initialize  fill  tage 

0189 

cm 

FILPHM  and  FILCNM  <  0  la  aequantlal  tagging 

0190 

Cl  1 1 

FILPHM  or  FILCNM  >  0  that  object  la  tagged  with 

0191 

cm 

FILCHP  or  FILCHC 

0192 

cm 

FILPHM  or  FILCNM  =  0  everything  tagged  vith  FILCHR 

0193 

FILPNM-0 

0194 

FIICNM«0 

0196 

cm 

Initialize  fill  charactara 

0196 

FILCHP* ’P1 

0197 

FILCHC-'C' 

0198 

FILCHR* -X' 

0199 

cm 

Initializa  ratnrn  flag 

0200 

LRET*. TRUE. 

0201 

cm 

Initialize  and  read  eoamand  Information. 

0202 

CALL  ABSCIN 

0203 

100 

CONTINUE 

0204 

cm 

Chooaa  a  aonrce  location  front  atored  poaitiona. 

0206 

DO  1200  MS-l.MSX 

0206 

DO  1000  N*l,3 

0207 

1000 

ANT£NH(N)*ISS(N,MS) 

0208 

cm 

Initialize  graphica  Information. 

0209 

CALL  IHITGF 

0210 

cm 

Calculate  ahadov  of  plataa. 

0211 

CALL  DOPLAS 

0212 

cm 

Calculate  ahadov  of  cyllndara. 

0213 

CALL  DOCTLS 

0214 

cm 

Write  out  aapa  to  printer  and  plotter  fllae. 

0216 

CALL  WRTOUT 

0216 

1200 

CONTINUE 
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oai7 

cm 

Rood  aort  eoaund  information. 

0318 

CALL  ABSCRE 

0319 

cm 

Attorn  to  ox*:ato  noxt  ihtdow  anp 

0330 

IF(LRET)  00  TO  100 

0331 

STOP 

0333 

END 
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10.3  Subroutines  common  to  both  modes 


The  following  routines  are  used  by  both  the  interactive  and  non-interactive  implementations 
of  the  code.  They  are  written  in  transportable  FORTRAN-77. 


SUBROUTINE  ABSCIN 


This  is  the  input-set  processor  routine.  It  reads  commands  from  the  input  file  which 


define  the  input  geometry. 


0001 

0002 

0003 

0004 

0006 

oooe 

0007 

0008 

0000 

0010 

0011 

0012 

0013 

0014 

0016 

0016 

0017 

0018 

0010 

0020 

0021 

0022 

0023 

0024 

0026 

0028 

0027 

0028 

0020 

0030 

0031 

0032 

0033 

0034 

0036 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0046 

0046 

0047 

0048 

0049 

0060 


C . - . 

SUBROUTINE  ABSCIN 


cm 

C!  1! 

cm 

cm 

cm 

cm 

cm 

cm 

C!  I ! 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

C!  1 1 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 

cm 


THE  NEC  -  BASIC  SCATTERING  CODE  (NEC -BSC)  WAS  WRITTEN 
AT  THE  OHIO  STATE  UNIVERSITY  ELECTROSCIENCE  LABORATORY. 

ANY  PROBLEMS  OR  COMMENTS  CAN  BE  REFERRED  TO: 

RONALD  J.  MARHEFKA 
ELECTROSCIENCE  LABORATORY 
1320  XINNEAR  RD. 

COLUMBUS. OHIO  43212 
PHONE:  (614)  422-6762 

THIS  IS  A  PORTION  OF  THE  MAIN  PROGRAM  OF  THE  NEC-BSC. 

IT  READS  IN  THE  INPUT  AND  PASSES  THE  GEOMETRY  INFORMATION 
TO  THE  SHADOW  CALCULATION  PART  OF  THIS  OBSCURATION  CODE. 

IT  READS  LOCATIONS  OF  SOURCES  A  NUMBER  OF  FINITE 
PLATES  AND/OR  A  SET  OF  FINITE 
ELLIPTIC  CYLINDERS  AND  CONE  FRUSTUM  SECTIONS 
THE  PLATES  ARE  DEFINED 

BY  THEIR  CORNER  LOCATIONS.  THEY  CAN  BE  PERFECTLY 
CONDUCTING,  MULTI  LAYERED  DIELECTRIC  SLABS.  OR  COATED 
METAL  PLATES .  AN  INFINITE  GROUND  PLANE  CAN  ALSO  BE 
ADDED.  THE  CYLINDERS  ARE  DEFINED  8Y  THEIR  ORICIH, 

AXES  DIRECTIONS,  AND  BY  THE  RADIUS  ON  THEIR  MAJOR 

AND  MINOR  AXES  AND  THE  ENDCAPS  AND  FRUSTUM  RIMS  ARE  DEFINED  BY 

THEIR  POSITION  OH  THE  CYLINDER  AXIS  AND  THE  ANCLE 

OF  THEIR  SURFACES  WITH  THE  CTLIHDER  AXIS  IN  THE  X-Z 

CYLINDER  PLANE.  THE  CYLINDERS  MUST  BE  PERFECTLY 

CONDUCTING.  AS  DIMENSIONED,  IT  CAN  HANDLE  76  PLATES 

WITH  A  MAXIMUM  OF  12  CORNERS  PER  PLATE,  WITH  6  LAYERS 

OF  DIELECTRIC  AND  6  CYLINDERS.  WITH  10  RIMS 

ALSO  30  TRANSMITTING 

ELEMENTS  AND  30  RECEIVING  ELEMENTS  CAN  BE  INPUT. 

NOTE  THAT  THE  LIMITS  ON  THE  NUMBER  OF  PLATES, 

CORNERS,  LAYERS,  CYLINDERS,  SOURCES,  AND  RECEIVERS 
ARE  ONLY  DUE  TO  TEE  SIZE  OF  TEE  ARRAYS. 

THE  LINEAR  DIMENSIONS  ARE  INPUT  IN  METERS  UNLESS 
SPECIFIED  OTHERWISE.  THE  ANGULU  DIMENSIONS 
ARE  IN  DEGREES. 

NOTE  THAT  COMMENTS  ARE  INDICATED  IN  DIFFERENT  FORMS: 

CM!  IMPLIES  EXPLANATION  OF  PROGRAM  SECTION 
CtH  IMPLIES  DESCRIPTION  OF  INPUT  DATA 
C>>"  IMPLIES  COMUND  INPUT  SECTION 
C—  IMPLIES  BEGINNING  OF  SUBROUTINE 
C«*«  IMPLIES  SPECIFICATION  OF  MAXIMUM  DIMENSIONS 


CXXX  Mtai  llaai  vara  aat  aaadad  far  SHADOW  prefraa 
CFFF  aaani  llaaa  vara  aat  lap lama a tad  far  earraat  varalen 
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HEC-BSC  VERSION  2.6-1  (  UPDATED  6/16/6S  ) 


0061 

cm 

0062 

cm 

0063 

cm 

0064 

cm 

0066 

cm 

0066 

cm 

0067 

CM  1 

0068 

cm 

0069 

cm 

0060 

cm 

0061 

cm 

0062 

cm 

0063 

cm 

0064 

cm 

0066 

cm 

0066 

cm 

0067 

cm 

0068 

cm 

0069 

cm 

0070 

cm 

0071 

cm 

0072 

C! !  1 

0073 

C!  1 1 

0074 

CHI 

0076 

cm 

0076 

C!  1 1 

0077 

c*** 

0076 

c*** 

0079 

c*+* 

0080 

C**4 

0081 

0082 

C«*4 

0083 

0084 

C444 

0086 

0086 

C*4  4 

0087 

0088 

C+44 

0089 

0266 

0266 

0267 

0268 

0269 

0260 

0261 

0262 

0263 

0264 

0266 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0276 

0276 

0277 

0278 

0279 

MAJOR  VERSION  CHANCES  ARE  DENOTED  BT  THE  FIRST  DKSIT 
MINOR  CHANCES  IN  CAPABILITY  ARE  DENOTED  BY  THE  DECIMAL 
POINTS  AND  MINOR  CHANCES  THAT  DO  NOT  HEED  ADDED 
DOCUMENTATION  ARE  SHOWN  AFTER  THE  DASH. 

NOTE  ON  VERSION  2.2 

1)  THE  PLATE  -  CYLINDER  TERMS  ARE  NOT  PRESENTLY  INCLUDED. 

2)  THE  CYLINDER  -  CYLINDER  INTERACTION  TERMS  WORK  ONLY 
FOR  PARALLEL  CYLINDERS  WITH  THE  PATTERN  CUT 
PERPENDICULAR  TO  THE  CYLINDER  AXES. 

NOTE  ON  VERSION  2.3 

RAHCE  GATING  HAS  BEEN  ADDED  IN  THE  NEAR  ZONE 
ROTE  ON  VERSION  2.4 

VOLUMETRIC  PATTERN  CAPABILITY  HAS  BEEN  ADDED 
NOTE  ON  VERSION  2.6 

PARAMETER  STATEMENTS  FOR  DIMENSIONS  ADDED 
ARRAY  INDICES  CHANCED  FOR  MORE  EFFICIENCY 

NOTE  OF  VERSION  2.6 
CONE  FRUSTUM  INPUT  ADDED 


SPECIFICATION  OF  MAXIMUM  DIMENSION  SIZES 

MAXIMUM  DIMENSION  FOR  OBSERVATION  POINTS 
PARAMETER  (NOX-1801) 

MAXIMUM  DIMENSION  FOR  PLATE  DIELECTRIC  LAYERS 
PARAMETER  (NLX«E) 

MAXIMUM  DIMENSION  FOR  SOURCES 
PARAMETER  (V.SX«30> 

MAXIMUM  DIMENSION  FOR  RECEIVERS 
PARAMETER  (NRX-30) 

INCLUDE  ‘SHACOM  FOR1 
COMPLEX  CJ.CPIA.WS.VR 
COMPLEX  CIU.CI22.ZU.Z22 
CHARACTER* 2  IT(40) , IR(36) ,LABEL(3)«6 
CHARACTER  RUNDAT*B, RUNTIMES 

DIMENSION  IMS(NSX) .BS(NSX) .HAWS(HSX) , VXSSC3.3.NSX) 
DIMENSION  IMR(NRX) .HR(NRX) .HAWR(NRX) ,VZRR(3,3,NRX) 
DIMENSION  XRRO.NRX)  ,VXRP(3,3,NRX) 

DIMENSION  XPCC3) .VRTC3.3) , TR(3) 

DIMENSION  JM1(4) ,DR(3) ,DT(3) ,DP(3) ,RDR(3) 

DIMENSION  XQR(3),Xq(3) 

LOGICAL  LKJ(4,6) , LFQG . LVARN , LSCAT . LPPREC 
LOG ICAL  LSOR, LOUT , LSRFC , LSURF , LSHD , LCTL , LPLA 
LOGICAL  LIHD, LDEBUG , LTEST , LSLOPE , LCORNR , LDC 
LOCICAL  LWRITE .  LPLT ,  LGRND ,  LSMP .  LRMP ,  LPRAD ,  LUNG .  LCNPAT 
LOGICAL  LNEAR . LRCVR , LRECT , LVOLP , LVPLT , LFARN 
COMMON/SOIDAT/IM . H , HAW , FACTOR 

COWON /80RART /WS (NSX)  .XSS(3.HSX)  ,MSA(2,*SX)  .KSX.MSP.MSPP 
COWON/ TEST/LDEBUC,  LTEST,  LWARN 
C0W0N/S0RINF/XS(3)  .VXSC3.3) 

COWON/IMA INF/X I  <3 .  WPX .  WPX)  ,  VX I  (3 , 3 .  IPX ) 

COWON/RECIHF/WR (NRX)  ,  IMRP ,  HRPP , HAWRP ,  VIR  (3 , 3)  , MR 

COWON /RECARY / XRP ( 3 , NRX)  .MU (2, NRX)  , DRPC3)  ,DTP(3)  ,DPP(3) 

COWON/LIMIT/SML.SMLR.SMLT.BIG 

COWON /DIR/RD (3)  ,DC3) . LNEAR, UCVR 

COMMON/WAVE/WK.WL 
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0380 

0381 

0383 

0383 

0384 

0386 

0388 

0387 

0388 

0389 

0390 

0391 

0393 

0393 

0394 

0396 

0396 

0397 

0398 

0399 

0300 

0301 

0303 

0303 

0304 

0306 

0308 

0307 

0308 

0309 

0310 

0311 

0313 

0313 

0314 

0316 

0316 

0317 

0318 

0319 

0330 

0331 

0333 

0333 

0334 

0336 

0336 

0337 

0338 

0339 

0330 

0331 

0333 

0333 

0334 

0336 

0336 

0337 

0338 

0339 

0340 

0341 

0343 

0343 


CDM40N/C0MP/CJ.CPI4 
C0MN0N/FNANG/F1IP(HEX ,  NPX) 

C01W0N/LPLCY/LPLA ,  LCYl 
COMMON/GROUND/LCRHD , MPXR 

COMMON/OUTPFZ/TPPD , PRAD , RANG . LCHPAT , LPRAD , LRANO 
COMON/OUTPNZ/RXS ,  RX I ,  TTS ,  TTI ,  PZS ,  PZI ,  LRECT 
COIMON/OUTPNV/IVPN, IV.LVOLP 

COMMON / TRANOT /LSLAB (NPX)  .NSLAB(HPX)  .DSLABOILX.NPX) 
3,ERSLAB(NLX,KPI) ,TESLAB(NLX,HPX) ,URSLAB(!ILX,NPX) 

3 , TMSLAB (NLX , NPX) 

DAIA  LABEL/ ’MEIERS', 'FEET  ‘.'INCHES'/ 

DATA  II/'IO' . ‘PD' , ‘PG’ . 'SO' , ‘LP’ , ‘PP' . ’GP' , ‘XQ' , ’RI' . 'CG1 


3,‘SM' 

•RD' 

•CM' 

■CE 

,‘BP‘ 

•UF\ 

•RM‘ 

’UN’ 

■FR‘ 

■NX’ 

3 , ’ EN 1 

•NP' 

'NC‘ 

'NO' 

,‘NS' 

•PR‘, 

'US' 

'PN‘ 

■RG' 

•NR’ 

4/SA' 

•FM‘ 

•RA* 

'GR' 

,‘VD' 

•VN'. 

'VP' 

'PF* 

■VF' 

■CC7 

Clll  MAX.  DIMENSION  OF  SOURCES, RECEI VERS, CTLINOERS, RIMS .PLATES, EDGES, 
Clll  LAYERS,  AND  OBSERVATION  POINTS. 

MSDX*HSX 

MRDX-NRX 

NCDX-NCX 

NCDX-NHI 

MPDX-NPX 

NEDX-HEX 

MLDX-HLX 

MODX-NOX 

cm  NOTE:  IN  SOB.  RFPTCL  THE  VARIABLES  IVD . PHOR . PHORP , AND  VRO 
cm  MUST  BE  DIMENSIONED  3*MPDX*1 

C!  1 1 

cm  SET  TIME  FLAGS  TO  ZERO 
IATIM-0 
IBTIM-0 
ICTIM-0 
GO  TO  3701 

3700  CONTINUE 
VRITE(6,3006) 

VRITE(6 , 3006) 

3701  CONTINUE 

CIM  INITIALIZE  DATA  TO  DEFAULT  VALUES. 

Clll  TEST  OUTPUT  DEFAULT  DATA  TO: 

LDEBUC*  FALSE 
LIES!-  FALSE 
LOUT-  FALSE. 

LWARH* . TRUE 
LSLOPE-  TRUE 
LCORNR- . TRUE . 

LSOR«  FALSE. 

JMX(1)*1 

JMX(3)«6 

JNX(3)«6 

JMX(4)*4 

DO  3706  >1,6 

DO  3706  K*l, 4 

LKJ(K.J)*  FALSE. 

IF(J.LE. JNX(X))  LKJ(K , J)*. TRUE 
3706  CONTINUE 

UJ  (3. 4) -.FALSE 
UJ  (3. 6) -.FALSE. 

CIM  FAR  ZONE  RANGE  DEFAULT  DATA  RD: 

LRANO*.  FALSE. 

RANG-1 . 

CIM  RANGE  GATE  DATA  GR: 

RMIN-SMLT 

RMAX-BIG 

Clll  PONER  RADIATED  DEFAULT  DATA  PR: 
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0344 

0346 

0340 

0347 

0348 

0340 

0360 

0361 

0363 

0363 

0364 

0366 

0368 

0367 

0368 

0360 

0360 

0381 

0363 

0363 

0364 

0366 

0366 

0367 

0368 

0360 

0370 

0371 

0373 

0373 

0374 

0376 

0376 

0377 

0376 

0370 

0380 

0381 

0383 

0383 

0384 

0386 

0386 

0387 

0388 

0380 

0300 

0301 

0303 

0303 

0304 

0306 

0306 

0307 

0308 

0300 

0400 

0401 

0403 

0403 

0404 

0406 

0406 

0407 


LPRAD*. F4LSE. 

PRAD>0. 

IPliD-1 

CM«  PATTERN  DEFAULT  DATA  PD:,  PN:,  PF:,  VD:.  VF:,  *  VN. 
LV0LP« . TRUE . 

LFARK* .  TRUE . 

LNEAR*. FALSE. 

LRECT*. FALSE. 

LCMPAT* , TRUE. 

TPPD*0 . 

TPPV*3 
TPPS-0 . 

TPPI*3. 

THC2-0 

PHCZ*0 

THCX'00 

PHCX-0 

VPC(1,1)«1. 

VPC(1.3)«0. 

VPC(1,3)«0. 

VPCO.D-O. 

VPC(3,3)-1. 

VPC(3,3)«0. 

VPC(1.3)«0. 

VPC(3,3)«0 

VPC(3,3)*1. 

XPC(1)*0. 

IPC(3)»0 

XPC(3)«0. 

RXS*1. 

RXI*0. 

TTS*0 

TTI-3 

PZS*0. 

pzi»a 

IVPW3 

NPNM81 

KPV-01 

CIH  BACK  OR  BISTATIC  NEAR  ZONE  SCATTERING  DEFAULT  DATA  BP: 
LSCAT». FALSE 

CtM  FREqUEttCT  DEFAULT  DATA  FR:  8  FM: 

FRQC*. 3007036 
LFOG«. FALSE. 

FOGS*. 3007036 

FQCI*0 

HFQC>1 

cm  PLATE  DEFAULT  DATA  PC: 

LPLA*. FALSE. 

KPX-0 

MEP(1)«4 

LSLAB(1)»0 

IX(1,1,1)*1 

XX(3.1,1)-1 

XX(3,1,1)«0 

11(1,3,1)— 1. 

11(3,3, 1)*1. 

11(3,3, 1)»0. 

11(1,3,1)— 1. 

11(3,3,1)-!. 

XX(3,3,1)«0. 

11(1, 4, 1)M. 

11(3,4,1)— 1. 

11(3, 4.  D-0. 

CHI  OROUND  PLANE  DEFAULT  DATA  CP: 
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0408 

0409 

0410 

0411 

0413 

0413 

0414 

0416 

0418 

0417 

0418 

0419 

0430 

0431 

0433 

0433 

0434 

0436 

0438 

0437 

0438 

0439 

0430 

0431 

0433 

0433 

0434 

0436 

0438 

0437 

0438 

0439 

0440 

0441 

0443 

0443 

0444 

0446 

0448 

0447 

0448 

0449 

0460 

0461 

0463 

0463 

0464 

0466 

0468 

0467 

0468 

0469 

0480 

0481 

0483 

0483 

0484 

0486 

0468 

0487 

0488 

0489 

0470 

0471 


LCRND*. FALSE. 

MPIR-MPX 

C8M  SOURCE  DEFAULT  DATA  SC:  ,SA:  ,8  SM: 
LSMP*. FALSE 
MSA-0 
MSAT-0 
MSA(l.l)-0 
MSA (3, l)-0 
XSSU.D-O 
XSS(3,1)*0. 

ASS(3.1)-0. 

IMS(1)«-1 
HSCD-OS 
HAWS ( 1 ) -0 . 

THSZ-0 

PHSZ-0 

THSX-90. 

PHSX-0 

VXSS(1.1.1)*1 
VISS(1 ,3,1)*0 
VXSSd.3.1)-0 
VXSS(2,1,1)*0 
VXSS(3,3.1)»1. 

VISS(3,3, 1)*0 
VXSSC3, 1 . 1 ) =0 . 

VXSS(3 , 3, 1)=0 . 

VXSS(3,3, 1)*1 . 

wsdMi.  .o  ) 

cut  RECEIVER  DEFAULT  DATA  RC:  ,RA:  .8  RM: 
LRCVR-  FALSE 
LRMP-  FALSE 
MRX-0 
MRAT-0 
MRA(1,1)*0 
MRA(3, 1)*0 
XRR(1,1)»0 
XRR(3 , l)-0 
IRR(3.1)-0. 

IMR(l)  — 1 
HR(l)-0  6 
HAVR(l)-0 
THRZ-0 
PHRZ-0 . 

THRX-90 

PHRX-0 

VXRR(1 , 1 i 1)*1 ■ 

VXRR(1 ,3, 1)*0 . 

VXRRd ,  3, 1)*0 . 

VXRR(3, 1 , 1)«0. 

VIRR(2,2,1)*1 . 

VXRR(2,3,1)*0. 

VIRR(3 , 1 . 1)*0. 

VXRR(3,2,1)*0 
VIRR(3,3,1)*1 
«(1)«(0.  ,0.) 

Cttt  LISE  PRINTER  DEFAULT  DATA  LP : 

LWRITE-. FALSE 

Cttt  PLOTTER  DEFAULT  DATA  PP:  8  VP: 

LVPLT*. FALSE. 

LPLT-. FALSE. 

LPP1EC-. FALSE. 

PPXL-0 

PPTL-3. 

PPXB-O. 
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0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0463 

0484 

0486 

0488 

0487 

0488 

0469 

0490 

0491 

0492 

0493 

0494 

0496 

0496 

0497 

0498 

0499 

0600 

0601 

0602 

0603 

0604 

0606 

0608 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0616 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0626 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0636 


PPXE-360 . 

PPXS-30 
PPTB— 40. 

PPTE*0 . 

PPYS-10. 

CHI  ROUTE  TRANSLATE  DEFAULT  DATA  RT: 
THZP-0 . 

PHZP-0 
THXP-90 . 

PHXP-0 . 

TR(1)*0. 

TR<2)«0. 

TR(3)*0. 

VRT(1,1)»1. 

VRTC1 ,2)*0 . 

VRT(1.3)«0. 

VRT(2,1)«0. 

VRT(2,2)«1 . 

VRT<2,3)«0. 

VRT(3,1)«0. 

VRT(3,2)«0. 

VRT(3,3)*1. 

CIM  CYLINDER  DEFAULT  DATA  CG:  A  CC: 
MDC*0 

LCTL-. FALSE 
HCX=0 
HEC(1)=2 
AC(1,1)«1. 

BC ( l,l)*l. 

AC(2,1)-1. 

BC(2, 1)»1 . 

ZC(2, l)«-3 . 

TCR<2,1)-1. 670798 
ZC(1.1)«3. 

TCR(1,1)«1  670796 
VCL  Cl , 1 ,1)*1 . 

VCLCl , 2, l)-0 . 

VCL(l,3.1)-0 
VCL(2,1,1)*0 
VCLC2.2, 1)*1 . 

VCL(2,3,1)*0 

VCLC3,1,1)*0. 

VCLC3.2, 1)«0 . 

VCL(3,3,1)*1. 

XCL(1,1)«0. 

XCL(2,l)-0. 

XCL(3, 1)*0. 

cm  UNITS  DEFAULT  DATA  UN:  ,UF:  t  US: 
IUNIT-1 

UNITN-UHITCIUHIT) 

UNITF-1 . 

UNITS»UNITH*UNITF 
IUNST-0 
IUNSP-1UNST 
CO  TO  2999 
ENTRY  ABSCRE 
3000  CQNTINUE 

■RITECe , 3008) 

3008  F0RMAT(1X,1H»,76I,1H*) 

WRITE(6,3008) 

WRITE (8, 3005) 

3006  F0AXATUX.26(3H*«)) 

CIM  READ  IN  VARIOUS  COWAND  OPTIONS 
2999  READC6, 3001, END* 3004)  (IR(I) , 1-1,36) 
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0636  3001  FORMAT (3612) 

0637  WRITE(6 , 3002) 

0638  3002  FORMAT (1H  ,//////, IX, 26(3H»*«)) 

0639  «RITE(6.300e) 

0640  WRITE(6,3003)  ( IR ( I ) , 1=1,38) 

0641  3003  FORMAT ( IX, 1H* . 21, 36A2.2X.1H*) 

0642  CIH 

0643  CMI  CHECK  AGAINST  STORED  OPTIONS 

0644  cm 

0646  CAM  CM.  COMMENT  CARD 

0646  IF(IR(1).EQ.IT(13))  CO  TO  3090 

0647  CAM  CE  LAST  COMMENT  CARD 

0648  IF(IR(1)  .El) .  IT (14) )  GO  TO  3000 

0649  WRITE(6,3006) 

0660  VRITE(6,3006) 

0661  CAM  TO:  TEST  DATA  GENERATION  OPTION. 

0662  IF ( IR ( 1 ) . EQ . IT(1))  GO  TO  3100 

0663  CAAA  PD:  FAR  ZONE  PATTERN  INTEGER  ANGLES 

0664  IF(IR(l).Eq  IT(2))  GO  TO  3200 

0666  CAAA  RD:  FAR  ZONE  RAHCE  INPUT 

0666  IF(IR(1) .EQ. IT (12))  GO  TO  3260 

0667  CAAA  PC:  PLATE  GEOMETRY  INPUT 

0668  IF(IR(1)  EQ . IT (3))  GO  TO  3300 

0669  CAAA  SG:  SOURCE  GEOMETRY  INPUT 

0660  IF(IR(1)  EQ.ITU))  GO  TO  3400 

0661  CAAA  SM  SOURCE  NEC  OR  AMP  INPUT 

0662  IF(IR(1).EQIT(11))  GO  TO  3460 

0663  CAAA  LP:  LINE  PRINTER  LISTING  OF  RESULTS 

0664  IF(IR(1)  EQ  IT(6))  GO  TO  3600 

0666  CAAA  PP:  PEN  PLOT  OF  RESULTS 

0666  IF(IR(1)  EQ  IT(fl))  GO  TO  3600 

0667  CAAA  OP:  INCLUDE  INFINITE  CROUND  PLANE 

0668  IF ( IR ( 1 )  EQ  IT(7))  GO  10  3700 

0669  CAAA  XQ  EXECUTE  PROGRAM 

0670  IF(IR(1)  EQ . IT(8))  GO  TO  3800 

0671  CAAA  RT:  TRANSLATE  AND/OR  ROTATE  COORDINATES 

0672  IF(IR(1)  EQ  IT(9))  GO  TO  3900 

0673  CAAA  CG:  CYLINDER  GEOMETRY  INPUT 

0674  IF(IR(l).Eq  IT(10))  CO  TO  4000 

0676  CAAA  CC:  CONE  GEOMETRY  INPUT 

0676  IF(IR(1)  EQ  IT(40))  GO  TO  4000 

0677  CAAA  BP:  BACK  OR  BISIATIC  NEAR  ZONE  SCATTERING 

0678  IF(IR(1).EQ  11(16))  GO  TO  6240 

0679  CAAA  UF:  SCALE  FACTOR  FOR  INPUT 

0680  IF ( IR( 1)  EQ. 11(16))  GO  TO  4120 

0681  CAAA  UN:  UNITS  OF  INPUT 

0682  IF(IR(1).EQ.IT(18»  GO  TO  4100 

0683  CAAA  FR  FREQUENCY 

0684  IF(IR(1) .EQ . IT(19) )  GO  TO  4200 

0686  CAAA  NX:  NEXT  PROBLEM 

0686  IF(IR(1)  EQ  IT(20))  GO  TO  2700 

0687  CAAA  EN :  END  PROGRAM 

0688  IF(IR(1)  EQ.lTUl))  00  TO  997 

0689  CAAA  HP:  NEXT  SET  OF  PLATES 

0690  IF(IR(1)  EQ. IT(22))  GO  TO  3360 

0691  CAAA  NC:  NEXT  SET  OF  CYLINDERS 

0692  IF(IR(1).EQ.IT(23))  GO  TO  4060 

0693  CAAA  NG:  NO  GROUND  PLANE 

0694  IF ( IR ( 1 )  EQ  IT (24))  GO  TO  3760 

0606  CAAA  NS:  NEXT  SET  OF  SOURCES 

0696  IF ( IR ( 1 ) .EQ. IT(26))  CO  TO  3490 

0697  CAAA  PR:  POWER  RADIATED  INPUT 

0696  IF(IR(1).EQ  IT(26))  GO  TO  3440 

0699  CAAA  US:  UNITS  OF  BS  AND  HAWS  IN  SC:  .  SA:  ,  RG:  ,8  RA 
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0600  IF(IR(1).EQ.IT(27))  00  TO  4110 

0601  Cttt  PR:  NEAR  ZONE  PATTERN  DESIRED 

0602  IF(IR(1) .EQ. IT (28))  CO  TO  3260 

0603  Cttt  RG:  RECEIVER  CEOMETRT  INPUT 

0604  IF(IR(1) .EQ . IT (29))  CO  TO  4400 

0606  CMS  RM:  RECEIVER  NEC  OR  AMP  INPUT 

0606  IF(IR(1).EQ  IT(17))  CO  TO  4460 

0607  Cttt  NR:  NEXT  SET  OF  RECEIVERS 

0608  IF(IR(1).EQ  IT(30))  CO  TO  3496 

0609  CM*  SA:  SOURCE  ARRAY  CEOMETRT  INPUT 

0610  IF(IR(l).EQ.IT(31))  CO  TO  3810 

0611  CM  FM:  MULTIPLE  FREQUENCY  INPUT 

0612  IF(IR(1) .EQ . IT (32))  GO  TO  4260 

0613  CM*  RA:  RECEIVER  ARRAY  GEOMETRY  INPUT 

0614  IF(IR(1) .EQ. IT (33))  CO  TO  4810 

0616  CM  CR:  RANGE  CATE  INPUT 

0616  lFUR(l)  ,EQ.IT(34))  CO  TO  6260 

0617  COt  VD:  FAR  ZONE  VOLUMETRIC  PATTERN  INTEGER  ANCLES 

0618  IF(IR(1) .EQ . IT (36))  CO  TO  3210 

0619  CM  VN:  NEAR  ZONE  VOLUMETRIC  PATTERN 

0620  IF(IR(1).EQ  11(36))  CO  TO  3270 

0621  CM  VP:  VOLUMETRIC  DUMP  OF  RESULTS  FOR  PLOTTING 

0622  IF(IR(1)  EQ. IT (37))  CO  TO  3660 

0623  Cttt  PF:  FAR  ZONE  NON  IHTECER  ANCLES 

0624  IF(IR(1)  EQ. IT (38))  CO  TO  3220 

0626  Cttt  VF:  FAR  ZONE  VOLUMETRIC  PATTERN  NON  INTECER  ANCLES 

0626  IF(IR(1)  EQ. IT (39))  CO  TO  3230 

0627  Cttt 

0628  WRITE(6,3021) 

0629  3021  FORMAT ( '  ***  PROGRAM  ABORTS  I ! 1  COMMAND  INPUT  IS  NOT  PART’, 

0630  2'  OF  STORED  COMMAND  LIST  *••') 

0631  3004  STOP 

0632  C~— «« 

0633  3090  CONTINUE 

0634  C“«  CM.  CE.  COMMANDS  »»«»*= 

0636  Cttt 

0636  Cttt  IR(I)*CM:  OR  CE:  FOLLOWED  BY  AN  ALPHANUMERIC  STRING  OF 

0637  Cttt  CHARACTERS.  THE  CM:  COMMAND  IMPLIES  THAT  THERE  WILL  BE 

0638  Cttt  ANOTHER  COMMENT  CARD  FOLLOWING  IT.  THE  LAST  COMMENT  CARD 
0639  Cttt  MUST  HAVE  THE  CE  COMMAND  ON  IT.  IF  THERE  IS  ONLY  ONE 

0640  Cttt  COMMENT  CARD  THE  CE:  COMMAND  SHOULD  BE  USED. 

0641  Cttt 

0642  READ(6,3001)  (IR(I) , 1=1 .36) 

0643  WRITE(6.3003)  (IR(I) , I«1 ,36) 

0644  IF(IR(1).EQ  IT(14))  CO  TO  3000 

0646  IF(IR(1)  EQ . IT (13))  GO  TO  3090 

0046  WRITE(6.3091) 

0647  3091  FORMAT  ( '  •“  PROGRAM  ABORTS  Ml  CE:  COKMAHD  MUST  BE' , 

0648  2'  USED  TO  END  COMMENTS.  **♦') 

0649  STOP 

0660  C»«==« 

0661  3100  CONTINUE 

0662  C«««  TO:  COKMAND  ====== 

0663  Cttt 

0664  Cttt  LDEBUC*DEBUG  DATA  OUTPUT  ON  LINE  PRINTER (TRUE  OR  FALSE) 

0666  Cttt 

0666  Cttt  LTEST«TEST  DATA  TO  INSURE  PROCRAM  OPERATION (TRUE  OR  FALSE) 

0667  Cttt 

0668  Cttt  LOUT«OUTPUT  MAIN  PROCRAM  DATA  OR  LINE  PRINTER(TRUE  OR  FALSE) 

0669  Cttt 

0660  Cttt  LWARN«WARRINC  DATA  OUTPUT  ON  LINE  PRINTER(TRUE  OR  FALSE) 

0661  Cttt 

0662  READ (6,0  LDEBUC , LTEST , LOUT , LWARN 

0663  VRITE(6,310i)  LDEBUC , LTEST, LOUT, LWARN 
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0881  3101  F0RNAK2H  *  ,6Jt , 'LDEBUC=  1  ,L3,6X,  'LTEST*  ‘ .L3.6X,  'LOUT*'  ,L3 

0865  2.6X,  'LWARN='  ,1.3 , 179 , 1H*) 

0886  WRITE(6,3008) 

0887  Cttt 

0688  CMS  LSIOPE-SLOPE  DIFFRACTED  FIELD  DESIRED  (T  OR  F) 

0689  Cttt 

0670  Cttt  LCORNR=CORNER  DIFFRACTED  FIELD  DESIRED  (I  OR  F) 

0671  CM8 

0672  C1U  LSOR'ANTENNA  SHADOW  ALONE  (TRUE  OR  FALSE) 

0873  CM* 

0674  READ(S,*)  LSLOPE.LCORHR.LSOR 

0676  VRITE(6,3102)  LSLOPE.LCORHR.LSOR 

0876  3102  FORMAT (2H  *,6X, 'LSLOPE*  ' ,L3,6X, 'LCORHR*  1 .L3.6X, 'LSOR=  ’.L3. 

0677  2T79.1H*) 

0678  WRITE(6 , 3006) 

0679  IF(LSOR)  WRITEC6 , 3402) 

0680  3402  F0RMATC2H  »,6X, 'SOURCE  SHADOW  ALOHE  IS  COMPUTED! 1 1 ’ ,T79 , 1H») 

0881  IF(LSOR)  WRITEC6 ,3006) 

0682  Cttt 

0683  Cttt  K-l.J-OPTION  TO  RUN  DIRECT  RAY  TERM: 

0684  CM!  INDIRECT  FIELD 

0686  Cttt  HOTE:  NORMALLY  LXJ(1 , 1)= . TRUE  THIS  COMPUTES  THE  INCIDENT  FIELD. 
0686  CM* 

0687  Cttt  X=2 .  J=OPTION  TO  RUN  VARIOUS  RAY  TERMS  FOR  PLATES: 

0688  Cttt  1-SINCLE  REFLECTED  FIELD 

0689  Cttt  2=D0UBLE  REFLECTED  FIELD 

0890  CIJI  3-SINGLE  DIFFRACTED  FIELD 

0691  CM$  4 ^REFLECTED /DIFFRACTED  FIELD 

0692  Cttt  6=DIFFRACTED/REFLECTED  FIELD 

0893  C*$$  8-DOUBLE  DIFFRACTION  1HDENTIF1CATI0N 

0694  Cttt  HOTE:  NORMALLY  LKJ(2,1  TO  6)=. TRUE.  THIS  COMPUTES  ALL  FIELD 
0696  CM!  VALUES  INCLUDING  IDENTIFIHG  DOUBLE  DIFFRACTION  PROBLEM  AREAS 

0696  C!t)  FOR  A  CONVEX  OR  CONCAVE  PLATE  STRUCTURE 

0697  Cttt 

0698  Cttt  K=3 . J=OPTION  TO  RUN  VARIOUS  RAY  TERMS  FOR  CYLINDER: 

0699  cm  1=REFLECTED, TRANSITION, AND  CREEPING  WAVE  FIELDS 

0700  cm  2=SINGLE  REFLECTED  FIELDS  FROM  ENDCAPS 

0701  Cttt  3-SINGLE  DIFFACTED  FIELDS  FROM  ENDCAP  RIMS 

0702  Cttt  4=REFLECTED-SCATTERED  FIELDS  FROM  TWO  PARALLEL  CYLINDERS 

0703  Cttt  6=DIFFRACTED-SCATTER£D  FIELDS  FROM  TWO  PARALLEL  CYLINDERS 

0704  Cttt  NOTE:  NORMALLY  LKJ(3,1  TO  6)«=  TRUE.  THIS  COMPUTES  ALL  FIELD 

0706  Cttt  VALUES  FOR  A  FINITE  ELLIPTIC  CYLINDER. 

0708  Cttt 

0707  Cttt  X=4,J=0PTI0N  TO  RUN  VARIOUS  RAT  TERMS  FOR 
0708  Cttt  PLATE-CYLINDER  INTERACTIONS: 

0709  Cttt  1=FIELDS  REFLECTED  FROM  THE  PLATES  THEN  REFLECTED  OR 
0710  Cttt  DIFFRACTED  FROM  THE  CYLINDER 

0711  Cttt  2»FIELDS  REFLECTED  OR  DIFFRACTED  FROM  THE  CYLINDER  THEN 
0712  Cttt  REFLECTED  FROM  THE  PLATES 

0713  Cttt  3=FIELDS  REFLECTED  FROM  THE  CYLINDER  THEN  DIFFRACTED 
0714  Cttt  FROM  THE  PLATES 

0716  Cttt  4*FIELDS  DIFFRACTED  FROM  THE  PLATES  THEN  REFLECTED 
0716  Cttt  FROM  THE  CYLINDER 

0717  Cttt  NOTE  NORMALLY  LKJ(4,1  TO  4)* . TRUE.  THIS  COMPUTES  ALL  FIELD 
0718  Cttt  VALUES  THAT  INTERACT  BETWEEN  THE  PLATES  AND  CYLINDERS . 

0719  Cttt 

0720  DO  3104  X-1.4 

0721  JX*JMX (X) 

0722  READ(6,‘)  (LXJ(X, J) . J«1 , JR) 

0723  3104  WR1TE(6,3103)  X, (LKJ(K , J) , J*1 , JX) 

0724  3103  F0RMAT(2H  * , T79. 1H« , T8 , ' LXJ( ' , II . ' , J>=  ',612) 

0726  .  GO  TO  3000 

0726  C*«— » 

0727  4100  CONTINUE 


0728 

ON:  COMMAND  — — 

0729 

cm 

0730 

CM) 

IUNIT-INDICATOR  OF  UNITS  USED  FOR  INPUT  DATA. 

0731 

CM) 

1-METERS 

0732 

CM) 

2-FEET 

0733 

CM) 

3» INCHES 

0734 

CM) 

0736 

READ<6,*)  IUHIT 

0736 

UHITN-UNIT(IUHIT) 

0737 

UHITS-UNITH-UHITF 

0738 

WRITE(6,4101)  LABEL(IUNIT) 

0739 

4101 

FORNAT (2H  «,6X.'ALL  THE  LINEAR  DIMENSIONS  BELOW 

ARE' 

0740 

2, '  ASSUMED  TO  BE  IN  ' ,  A8 , T79 , 1HO 

0741 

CO  TO  3000 

0742 

OkCS! 

0743 

4120 

CONTINUE 

0744 

c«— 

UF:  COMMAND  — — 

0746 

CM) 

0746 

CM) 

UNITF  =  SCALE  FACTOR  FOR  GEOMETRY 

0747 

CM) 

0748 

READ(6, *)  UNITF 

0749 

UNITS-UNITN-UNITF 

0760 

WRITEC6 , 4 121)  UNITF 

0761 

4121 

FORMAT (2H  * ,6X, 'ALL  THE  LINEAR  DIMENSIONS  BELOW 

ARE  SCALED 

0762 

2, '  A  FACTOR  OF  ' . F12  6. T79 , 1H») 

0763 

CO  TO  3000 

0764 

C>S« 

0766 

4110 

CONTINUE 

0766 

US :  COMMAND  — — 

0767 

CM) 

0768 

CM) 

IUNSTX INDICATOR  OF  UNITS  USED  FOR  HS  AND  HAWS  IN 

THE 

0769 

CM) 

SC:  COMMAND 

0760 

CM) 

0-WAVELENGTHS 

0761 

CM) 

1-METERS 

0762 

CM) 

2-FEET 

0763 

CM) 

3-INCHES 

0764 

CM) 

0766 

CM) 

NOTE:  IF  ONE  SOURCE  IS  SPECIFIED  IN  WAVELENGTHS, 

THEY  ALL 

0766 

C)M 

MUST  BE  IN  WAVELENGTHS. 

0767 

READ (6,*)  IUNST 

0788 

IF(MSXEQO)  CO  TO  4112 

0769 

IF ( IUNST. EQ  0  AND.IUNSP.EQ.O)  GO  TO  4112 

0770 

IF ( IUNST. NE.O. AND. IUNSP.NE.O)  CO  TO  4112 

0771 

WRITE(6 .4111) 

0772 

4111 

FORMATC  •••  PROCRAM  ABORTS  IN  SOURCE  UNITS.  ALL 

UNITS  NOT' 

0773 

2.'  SPECIFIED  IN  WAVELENGTHS! I!  **•') 

0774 

STOP 

0776 

4112 

CONTINUE 

0776 

IF ( IUNST .EQ  0)  CO  TO  4114 

0777 

WRITE(6,4113)  LABELCIUNST) 

0778 

4113 

FORMAT (2H  *,6X,'THE  SOURCE  LENGTH  HS  AND  WIDTH  HAWS  ARE' 

0779 

2,'  ASSUMED  TO  BE  IN  ' , A6, T79 , 1H«) 

0780 

CO  TO  4116 

0781 

4114 

WRITE(6 ,4116) 

0782 

4116 

FORMAT (2H  •,6X,'THE  SOURCE  LENCTH  HS  AND  WIDTH  HAWS  ARE' 

0783 

2.'  ASSUMED  TO  BE  IN  WAVELENGTHS' ,T79, 1H*) 

0784 

4116 

IUDSP- IUNST 

0786 

CO  TO  3000 

0786 

C«M> 

)«* 

0787 

4200 

CONTINUE 

0788 

Qhs 

FR:  COWAND  mm..*. 

0789 

CM) 

0790 

CM) 

FRQC-FREQUENCT  IN  GIGAHERTZ 

0791 

CM) 
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0763 

LFQC*. FALSE. 

0783 

NFQG*1 

0781 

READ(6 , *)  FRQG 

0786 

WL* . 2887826/FRQG 

0786 

WRITE(6,A201)  FRQG 

0787 

4201 

FORMAT (2H  ♦ ,6X, 'FREQUENCY-  \F7.3,'  GIGAHERTZ' ,T7B, 1H*) 

0788 

WRITE(6,3008) 

0788 

WRITECfl , 1202)  WL 

0800 

4202 

F0RMATC2H  *, EX, 'WAVELENGTH*  ',F10.6,'  METERS' ,T78 , 1H») 

0801 

GO  TO  3000 

0803 

C*KS1 

(81 

0803 

4260 

CONTINUE 

0801 

FM:  COMMAND 

0805 

cm 

0806 

cm 

NFQG-NUMBER  OF  FREQUENCIES  DESIRED 

0807 

cm 

0808 

cm 

FQGS-STARTING  FREQUENCY  IN  GIGAHERTZ 

0808 

cm 

0810 

cm 

FQCI-IHCREMENTAL  FREQUENCY  CHANGE  IN  GIGAHERTZ 

0811 

cm 

0813 

cm 

NOTE:  THE  SOURCE  LENGTH  AND  WIDTH  MUST  HOT  BE  SPECIFIED 

0813 

C$18 

IN  WAVELENGTHS.  ALSO  ONLY  ONE  PATTERN  LOCATION 

0811 

cm 

CAN  BE  SPECIFIED. 

0816 

cm 

0816 

LFQC*  TRUE. 

0817 

READ(6 , *)  NFQG.FQGS.FQGl 

0818 

WRITE(6.1261)  NFQG 

0818 

4261 

FORMAT (2H  »,6X,I3,‘  FREQUENCIES  ARE  SPECIFIED ', T7B, 1H*) 

0820 

IFOiFQG  CT  MODX)  WRITE(8 , 3288)  NFQG 

0831 

IF01FQG  GT.MODX)  STOP 

0822 

WRITEC6.3006) 

0823 

WR1TE(6 , 1262)  FQGS.FQCI 

0821 

4252 

F0RMAT(2H  •, 61 . 'STARTING  FREQ*  '.F10.6,'  IN  STEPS  OF  \F10.I 

0826 

3.'  GHZ  '  .T7B.1HO 

0826 

C!  1  ! 

CALCULATE  MID-FREQUENCY 

0837 

FRQ0*FQCS»0 ,6»FQGI*LHFQG-1) 

0828 

WLS  2887826/FRQG 

0828 

GO  TO  3000 

0830 

Csesa 

0831 

3230 

CONTINUE 

0832 

c*== 

VF :  COMMAND  ****** 

0833 

cm 

0831 

cm 

FAR  ZONE  VOLUMETRIC  PATTERN  NON  INTEGER  ANGLES 

0836 

cm 

0836 

LVOLP*  TRUE 

0837 

LFARN*  TRUE 

0838 

CO  TO  3211 

0838 

Ck»* 

:bs 

0810 

3210 

CONTINUE 

0811 

c-*« 

VD:  COMMAND  ****** 

0812 

cm 

0813 

cm 

FAR  ZONE  VOLUMETRIC  PATTERN  INTEGER  ANCLES 

0811 

cm 

0816 

LVOLP*. TRUE 

0846 

LFARN*  FALSE 

0817 

GO  TO  3211 

0848 

(SB 

0848 

3320 

CONTINUE 

0860 

PF :  COMMAND  ****** 

0861 

cm 

0862 

cm 

FAR  ZONE  PATTERN  NON  INTEGER  ANGLES 

0863 

cm 

0861 

LVOLP*. FALSE. 

0866 

LFARN*  TRUE. 
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CO  TO  3211 


08SB 

08B7 

08B8 

3200 

08S9 

C"“  * 

0880 

cm 

0861 

coot 

0882 

cm 

0863 

cm 

0864 

cm 

086B 

cm 

0866 

coot 

0867 

cm 

0868 

cm 

0869 

0870 

3211 

0871 

0872 

0673 

0874 

0876 

0876 

0877 

0878 

C!  1 1 

0879 

0880 

0881 

3201 

0882 

0883 

0884 

0886 

0886 

0887 

0888 

0889 

0690 

0891 

0892 

0893 

0894 

0896 

0896 

3202 

0897 

0898 

0899 

3204 

0900 

3206 

0901 

0902 

3203 

0903 

cm 

0904 

cm 

0906 

cm 

0906 

c«»« 

0907 

cm 

0908 

cm 

0909 

cm 

0910 

cm 

0911 

cm 

0912 

0913 

0914 

0916 

0016 

0917 

0918 

3206 

0919 

CONTI  HUE 

PD:  COMMAND  ...... 

FAR  ZONE  PATTERN  INTESER  ANCLES 

THCZ,PHCZ*ORIENTATION  OF  THE  Z  AIIS  RELATIVE  TO  THE 
FIXED  COORDINATE  SYSTEM 

THCI ,PHCX*ORIENTATION  OF  THE  I  AXIS  -XATIVE  TO  THE 
FIXED  COORDINATE  SYSTEM 

LVOLP*  FALSE 
LNEAR*  FALSE 

READ (6,*)  THCZ , PHCZ , THCI , PHCI 

VPC(3,1)*SIN(THCZ«RPD)-C0S(PHCZ*RPD) 

VPC(3,2)*SIN(THCZ*RPD>*SIN(PHCZ«RPD) 

VPC(3,3)*C0S(THCZ»RPD) 

VPC ( 1 , 1 ) *S I N ( THCI • RPD) • COS (PHCI • RPD ) 
VPC(1,2)*SIN(THCX*RPD)*SIN(PHCX»RPD> 

VPC(1.3)*C0S(THCI*RPD) 

INSURE  VPC(l.N)  IS  PERPENDICULAR  TO  VPI(3,N) 

DZX*VPC(3 , 1) *VPC(1 . 1) <VPC(3 ,2) • VPC (1 ,2) ‘VPC (3, 3) »VPC(1 ,3) 
IF(ABSCDZX) . CT  0  1)  WRITE(6,3201) 

FORMAT (‘  •••  PROCRAM  ABORTS  IN  PATTERN  CUT  SECTION.1 
2,'  THE  COORDINATES  ARE  ROT  ORTHOGONAL!!!  ••«') 

IF(ABSCDZX)  CT  0  1)  STOP 
VPC(1 , 1)*VPC(1 , 1)-VPC(3, 1 ) »DZ  X 
VPC ( 1.2) -VPC (1,2) -VPC (3, 2) *DZX 
VPC(1 , 3)*VPC(1 ,3)-VPC(3,3)*DZX 

DOT*VPC(l . 1) *VPC(1 , 1) *VPC(1 , 2) *VPC(1 ,2)*VPC(1 ,3) *VPC(1 ,3) 
DOT*SQRT(DOT) 

VPC(1,1)*VPG(1. 1)/D0T 
VPC(l,a)*VPC(l,2)/D0T 
VPC(1 , 3)=VPC(1 ,3)/D0T 

VPC(2, 1)*VPC(3, 2) •VPC(1 ,3) -VPC (3 , 3) »VPC(1 ,2) 
VPC(2,2)=VPC(3,3) *VPC(1 , 1)-VPC(3, 1)»VPC(1 ,3) 

VPC (2 . 3)*VPC(3, 1)*VPC(1 ,2)-VPC(3,2)*VPC(l , 1) 

VR1TE(6 , 3202) 

FORMAT (2H  • , EX , 1 THE  PATTERN  AXES  ARE  AS  FOLLOWS: 1  ,T79,lHO 
DO  3204  111*1,3 
WRITE(6 , 3006) 

VRITEC6 , 3206)  (NI , NJ. VPC(NI ,NJ) ,NJ«1 , 3) 

FORMAT (2H  » ,  1X.3C2X. 1  VPC( 1 . II. 1 .  Ml , ')»’ ,F9.B)  ,m,lH») 

DO  3203  N=1 ,3 
XPC(N)*0 

LCNPAT«IS  PATTERN  CONIC  CUT(T  OR  F)Y 
T-THETA  CUTCCONIC  CUT) 

F*PHI  CUT (PHI  CONSTANT) 

TPPD*PATTERH  ANGLE  THAT  IS  CONSTANT 
IF  LCNPAT-T:  TPPD*THP  CONSTANT 
IF  LCNPAT-F:  TPPD-PHP  CORSTANI 

IF (LVOLP)  CO  TO  3212 

TPPV*0 

WPV-1 

READ(B, •)  LCNPAT.TPPD 
WRITEC6 ,3006) 

IF(.WOT.LCHPAT)  IRITE(6 , 3206)  TPPD 

FORMAT (2H  *,6X, ‘THETA  IS  BEINO  VARIED  WITH  PHI*  ' ,F10E 
2.T79.1HO 
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0020 

IF (LCNPAT)  VR1TE(6 . 3207)  IPPD 

0021 

3207 

FORMAT  (2H  •,61, 'PHI  IS  BEINC  VARIED  WITH  THETA*  '.F10.6 

0022 

2.T70.1HO 

0023 

VRITE(6 , 3006) 

0024 

CO  TO  3216 

0025 

cm 

0026 

cm 

TPPD*START  OF  VOLUMETRIC  PATTERN  ANGLE 

0027 

cm 

TPPV*INCREMEHT  FOR  VOLUMETRIC  PATTERN  ANCLE 

0028 

cm 

NPV=NUMBER  OF  VOLUMETRIC  PATTERN  ANCLES 

0020 

cm 

0030 

3212 

READ (6,*)  LCNPAT , IPPD , TPPV , NPV 

0031 

WRITE (6, 3006) 

0032 

IF (LCNPAT)  WRITE(6,3213) 

0033 

3213 

FORMAT (2H  *.61, 'FOR  THETA  ANGLE: ' ,170, 1H») 

0034 

IF (NOT. LCNPAT)  WRITE(6,3214) 

0036 

3214 

FORMAT (2H  •,61,’FOR  PHI  ANCLE:  \ T70 , 1H*> 

0036 

VRITE(6 , 3215)  IPPD , TPPV , NPV 

0037 

3216 

FORMAT (2H  *,6I.'START*  \F10.6,'  STEP*  'F10.6,'  NUMBER*  ',14 

0038 

2.T70, 1H») 

0030 

VRITE(6,3006) 

0040 

IF(LCNPAT)  VRITE(6 , 3214) 

0041 

IF (NOT. LCNPAT)  WRITE(6,3213) 

0042 

3216 

CONTINUE 

0043 

IF(LFARH)  CO  TO  3217 

0044 

cm 

0045 

cm 

IB ,  IE ,  IS*BEC I II ,  END ,  STEP 

0046 

cm 

0047 

READ (6,*)  IB. IE, IS 

0048 

IF(IB.LT.O)  IB*0 

0040 

IF(IE  GT.360)  IE*360 

0060 

IF(ISLEO)  IS*1 

0061 

TPPS*IB 

0062 

TPPI*IS 

0063 

NPN* (IE- IB)/ IS* 1 

0054 

VRITE(6 , 3208)  IB. IE. IS 

0066 

3208 

FORMAT (2H  •.61, 'THE  RANGE  OF  PATTERN  ANGLE  INDICES  FOR  THIS' 

0066 

2,'  RUN  ARE:  '  .13,20  . '  .13)  ,T70,1H‘) 

0067 

CO  TO  3218 

0066 

3217 

CONTINUE 

0060 

cm 

0060 

cm 

TPPS*START  OF  PATTERN 

0061 

cm 

TPPI=PATTERH  INCREMENT 

0062 

cm 

NP1I*NUMBER  OF  PATTERN  POINTS 

0063 

cm* 

0064 

READ(6, •)  TPPS, TPPI , NPN 

0066 

WRITE(6 , 3216)  TPPS, TPPI , NPN 

0066 

3218 

CONTINUE 

0067 

R1S*1 . 

0068 

R1I-0 

0060 

TTS*TPPD 

0070 

TTI*TPPV 

0071 

PZS-TPPS 

0072 

PZI-TPPI 

0073 

IVPN*3 

0074 

IF (LCNPAT)  CO  TO  3200 

0076 

TTS-TPPS 

0076 

TTI-TPPI 

0077 

PZS-TPPD 

0078 

PZI-TPPV 

0070 

IVPN*-3 

0080 

3200 

CONTINUE 

0081 

CO  TO  3000 

0082 

C>BBI 

•* 

0083 

3260 

CONTINUE 
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0984  C*«»  ED:  COMMAND  ««.».« 

0985  C«t$ 

0988  CMI  RANCS*FAR  FIELD  RAHCE  DISTANCE 

0987  C«M 

0988  Cl<«  NOTE  IF  RANCS  IS  GREATER  THAN  OR  EQUAL  TO  1.E30 
0989  cot  THAN  LRANC  WILL  BE  SET  FALSE 

0990  CHI 

0991  LRAHG».TRUE. 

0993  READ (6,*)  RANCS 

0993  IF (BANGS . CT . 9 . 9E39)  CO  TO  3353 

0994  RAHC*UNITS*RAHGS 

0996  VRITE(8,3351)  BANGS, LABEL(IUHIT) .RANG 

0998  3361  F0RMAT(3H  *,6I,'THE  FAR  FIELD  RANGE  SPECIFIED  IS  '.E13.8, 

0097  3'  IN  \A6,T79.1H*./3H  *,6X,’THE  RANGE  SPECIFIED  IN  METERS' 

0998  3/  IS  \E13. 8,179, 1H») 

0999  GO  TO  3000 

1000  3363  CONTINUE 

1001  LRANG*. FALSE. 

1003  RANC«1. 

1003  NRITE(6,3363) 

1004  3363  FQRMAT(3H  *,6X,'N0  FAR  FIELD  RANGE  SPECIFIED. ‘ ,T79,1H») 

1006  CO  TO  3000 
1008 

1007  3370  CONTINUE 

1008  C*==  VN:  COMMAND  ■«**” 

1009  cm 

1010  Ct$l  NEAR  ZONE  VOLUMETRIC  PATTERN 

1011  CAM 

1013  LVOLP* . TRUE . 

1013  CO  TO  3371 

1014 

1016  3380  CONTINUE 

1018  C*«*  PN:  COMMAND  ««*««« 

1017  cm 

1018  cm  XPC(N)=XTZ  LOCATION  OF  THE  HEAR  ZONE  PATTERN  ORIGIN 

1019  cm 

1030  LVOLP*. FALSE. 

1031  3371  LHEAR*  TRUE 

1033  READ (6,*)  (XPC(N) ,N»1 ,3) 

1033  VRITE(8,3364)  LABEL(IUHIT) , (XPC(N) ,H»1 ,3) 

1034  3361  FORMATOH  *,11, 'PATTERN  ORIGIN  IN  '.AS,':  IPC(l)-' ,F8.3 

1036  3.'  XPC(3)“‘ , F8  3, '  XPC(3)»' ,F8 . 3, 179, 1H*) 

1038  WRITE(6 , 3006) 

1037  DO  3363  H-1,3 

1038  3383  IPC  00  «UH ITS*  XPC (R) 

1039  IF(IUHIT.NE.l)  WRITE(6 , 3364)  LABEL (1) , (XPC(N) ,H*1 ,3) 

1030  IFOUNIT.NE.  1)  VRITEC6.3006) 

1031  VRITE(6,3006) 

1033  cm 

1033  CAAA  THCZ.PHCZ'ORIENTATION  OF  THE  Z-AXIS  OF  THE  PATTERN  AXES 

1034  cm  RELATIVE  TO  THE  FIXED  COORDINATE  STSTEM 

1036  cm 

1036  cm  THCX.PHCX-ORIEHTATION  OF  THE  X-AXIS  OF  THE  PATTERN  AXES 

1037  CAM  RELATIVE  TO  THE  FIXED  COORDINATE  STSTEM 

1038  cm 

1039  READ (6,*)  THCZ . PHCZ , THCX . PHCX 

1040  VPC(3,1)«SIN(THCZ*RPD)*C0S(PHCZ*RPD) 

1041  VPC(3 , 3) *8IN (THCZ»RPD) *SIN (PHCZ*RPD) 

1043  VPC(3,S)-C0S(IHCZ*RPD) 

1043  VPC ( 1 . 1) «S IN (THCX*RPD) *COS (PHCX  *RPD) 

1044  VPC ( 1 . 3) -SIN ( THCX  *RPD) »SIH (PHCX  »RPD) 

1046  VPC(1,3)«C0S(THCX*RPD) 

1048  Clll  INSURE  VPC(l.N)  IS  PERPENDICULAR  TO  VPC(3,N) 

1047  DZX*VPC(3,1)*VPC(1,1)*VPC(3,3) »VPC(1 ,3)<VPC(3,S)»VPC(1,3) 
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1048 

IF(ABS(DZX).CT  0.1)  WRITE(6,320l) 

1049 

IF(»BS(DZI)  GI.0. 1)  STOP 

10B0 

VPC(1,1)*VPC(1,1)-VPC(3,1)*DZX 

10E1 

VPC ( 1 . 2) *VPC ( 1 . 2) - VPC (3 , 2) »DZX 

10S2 

VPC(1.3)«VPC(1,3)-VPC(3,3)*DZX 

10S3 

D0T*VPC(1.1)*VPC(1,1)*VPC(1,2)*VPC(1,2)«VPC(1,3)»VPC(1,3) 

1064 

DOT-SQRT(DOT) 

10BB 

VPC(1.1)«VPC(1,1)/D0T 

1068 

VPC(1,2)'VPC(1 ,2) /DOT 

1067 

VPC(1,3)«VPC(1.3)/D0T 

1068 

VPC(2,1)»VPC(3,2)*VPC(1,3)-VPC(3,3)*VPC(1,2) 

1069 

VPC(2 ,2)*VPC(3,3) *VPC(1 , 1)-VPC(3 , 1)*VPC(1 ,3) 

1080 

VPC(2.3)-VPC(3,1)*VPC(1,3)-VPC(3,2)*VPC(1,1) 

1081 

niTE(6.3202) 

1082 

DO  3264  NI*1,3 

1063 

WRITE (6, 3008) 

1064 

3264 

WRITE(6,3205)  (HI  ,NJ  ,VPC(NI  .N.J)  ,NJ*1 ,3) 

1066 

WRITE (8, 3006) 

1066 

WRIIEC6.3006) 

1067 

CM! 

1068 

cm 

LRECT*F,  SPHERICAL  PATTERN  CUT 

1069 

cm 

LRECT=T ,  LINEAR  PATTERN  CUT 

1070 

cm 

1071 

cm 

RXS , ITS , PZS'SIARTIHG  LOCATION  OF  PATTERN 

1072 

cm 

LRECT-F:  RADIAL .THETA, PHI 

1073 

cm 

LRECT«T:  X.T.Z 

1074 

cm 

1076 

cm 

RXI , TTI .PZI'SIZE  OF  INCREMENTAL  STEPS 

1076 

cm 

LRECT*F :  RADIAL. THETA. PHI 

1077 

cm 

LRECT*=T:  X.T.Z 

1078 

cm 

1079 

READ(6 , *)  LRECT 

1080 

READ(6, •)  RXS.TTS.PZS 

1081 

READ(6,*)  RXI.TTI.PZ1 

1082 

IF (LRECT)  WRITE(6.3261)  RXS.TTS.PZS.LABEL(IUHIT) 

1083 

3261 

FORMAT (2H  * ,2X, 'STARTING  XTZ«' .F10.6.2C . * .F10.6) .1X.A6 

1084 

2,T79.1H‘) 

1086 

IF (LRECT)  WRITE<6.3282)  RII.TTI.PZI.LABEL(IUNIT) 

1088 

3262 

FORMAT (2H  * ,2X . ‘STEP  XTZ«' ,F10  6.2C . ' .F10.6) .1X.A6.T79.1H*) 

1087 

IF(  NOT  LRECT)  WRITE(6,3267)  RXS.TTS.PZS.LABELdUNIT) 

1088 

3267 

FORMAT (2H  » ,2X . 'STARTING  R, THETA, PHI=’ .F10.6 

1089 

S.SC.'.FlO.BI.lX.Ae,'  AND  DEG. '  .T79.1HO 

1090 

IF (HOT. LRECT)  WRITE(6.3268)  RXI.TTI.PZI.LABEL(IUNIT) 

1091 

3268 

FORMAT (2H  •,2X.'STEP  R.THEIA.PHI*' ,F10.6,2(' , ’ .F10.6) ,1X,A6 

1092 

2,'  AND  DEC.  '.T79.1HO 

1093 

WRITE(6,3006) 

1094 

RXS*UHITS*RXS 

1096 

RXI«UNITS*RXI 

1096 

IF(. NOT. LRECT)  CO  TO  3266 

1097 

TTS«UNITS*TTS 

1098 

PZS»UHITS*PZS 

1099 

TTI»UNITS*TTI 

1100 

PZI»UNITS»PZI 

1101 

3266 

CONTINUE 

1132 

IF (LRECT. AND  IUN IT. HE. 1)  WRITE(6,3261)  RIS,TTS,PZS,LABEL(1) 

1103 

IF (LRECT. AND  TUN IT. HE. 1)  WRITE(8 . 3282)  RII , TYI ,PZI , LABEL (1) 

1104 

IF(  . NOT. LRECT.  AND.  IUNIT.NE  1)  WRITE(6,3267)  US.TTS.PZS.LABEL(l) 

1106 

IF(. NOT. LRECT. AHD.IUNIT. HE. 1)  WRITE(8.3288)  RXI,TTI,PZI,LABEL(1) 

1106 

IF ( . NOT . LRECT  AND  IURIT . NE . 1)  WRITE(6 , 3008) 

1107 

IF(LVOLP)  GO  TO  3272 

1108 

cm 

1109 

cm 

NPN«NUMBER  OF  PATTERN  POINTS 

1110 

cm 

1111 

READ(6,*)  NPN 
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1112  NRIT£(8.3269)  KPN 

1113  3269  FORMA T(2H  *, 61, 'NUMBER  OF  PATTERN  POINTS-  1 , I4.T79, 1H») 

1114  IVPN-3 

1116  IFCABS(PZI)  . LT  SMLR)  IVPH—3 

me  IF(IRECT)  IVPH-0 

1117  CO  70  3276 

1118  Cttt 

1119  Cttt  IVPN-1  FOR  R-THETA  OR  X-Y  VARYING 

1120  Cttt  NPV-NUMBER  OF  R  OR  X  AND  NPN-HUMBER  OF  THETA  OR  T 

1121  cite 

1122  CM*  IVPN«2  FOR  R-PHI  OR  X-Z  VARYING 

1123  CIM  NPV-NUMBER  OF  R  OR  X  AND  NPN-NUMBER  OF  PHI  OR  Z 

1124  CM* 

1126  CM*  IVPN-3  FOR  THETA-PHI  OR  Y-Z  VARYING 

1128  CM*  NPV-NUMBER  OF  THETA  OR  Y  AND  NPN -NUMBER  OF  PHI  OR  Z 

1127  C*** 

1128  C«*t  IF  I  VPN  IS  LESS  THAN  ZERO  THE  ORDER  IS  REVERSED 

1129  CMt  I.E.  IVPH—1  FOR  THETA-R  OR  Y-X  VARYING 

1130  CM* 

1131  3272  READC6.0  IVPN.NPV.NPN 

1132  IF(IVPN.Eq.l)  WRITE(6,3273)  NPV.NPN 

1133  IF(IVPN.EQ.-l)  VRITEC6 , 3273)  NPH.NPV 

1134  3273  FORMAT (2H  • , 6X , ' NUMBER  OF  POINTS  FOR  R  OR  X-  ',14 

1136  2.’  AND  THETA  OR  Y*  ',14) 

1138  IFUVPH  Ed  2)  VRITE(8.3274)  NPV.NPN 

1137  IFdVPIl  Ed  -2)  VRITE(8 , 3274)  NPII.NPV 

1138  3274  F0RMAT(2H  ‘.SX,’ NUMBER  OF  POINTS  FOR  R  OR  X-  ‘.14 

1139  2.'  AND  PHI  OR  Z«  '.14) 

1140  IF(IVPH  Eq  3)  WRITE(8 . 3276)  NPV.NPN 

1141  IF(IVPN  Eq  -3)  WRITE (8 ,3276)  NPH.NPV 

1142  3276  FORMAT (2H  *.61, 'HUMBER  OF  POINTS  FOR  THETA  OR  Y«  ',14 

1143  2. '  AND  PHI  OR  2-  ' .14) 

1144  3278  CONTINUE 

1146  IF(HPN.GT.MODX)  WRITEC8 , 3266)  NPH 

1146  3266  FORMAT 1 '  ••**»  NUMBER  OF  POINTS-  ‘,13, *  PROCRAM  ABORTS’ 

1147  2, 'PATTERN  STORAGE  DIMENSION  IS  EXCEEDED  •••**') 

1148  IF (NPH  GT  MODI)  STOP 

1149  GO  TO  3000 

1160  C««— 

1161  6240  CONTINUE 

1162  C—  BP:  COMMAND  — — 

1163  Cttt 

1164  CtM  BACK  OR  BISTATIC  REAR  ZONE  8CATTERINC 

1166  CtM 

1168  CtM  THE  SC:,  RG:,  AND  PN:  COMMANDS  MUST  BE  SPECIFIED 

1167  CM*  TO  USE  THIS  OPTION 

1168  LSCAT- .  TRUE 

1169  CO  TO  3000 

1180  C— — 

1161  6280  CONTINUE 

1162  C—  GR:  COMUHD  — — 

1183  CM* 

1164  CtM  URGE  GATE  INPUT 

1166  Cttt 

1168  CM*  RMIN-THE  MINIMUM  DISTANCE  FROM  TRANSMITTER  TO  RECEIVER 

1167  CM*  RMAX-IHE  MAXIMUM  DISTANCE  FROM  TRANSMITTER  TO  RECEIVER 

1188  CtM 

1189  CtM  THE  PN:  COWARD  MUST  BE  USED 

1170  Cttt 

1171  IEAD(6,-)  RMIN.RMAX 

1172  VRIT£(6,6281)  RMIN.RMAX .LABEL(IUNIT) 

1173  6281  FORMAT (2fl  *,2I,‘BMXI*  ' .F10.6, 'RMAX-  '.F10.6.'  IN  ‘ .A6.T79. 1H») 

1174  RM1N-UNITS-RMIN 

1176  RMAX-UNITB-RMAX 
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lire  VRITE(6 , 6281)  RMI H , RMAX , LABEL ( 1 ) 

1177  GO  TO  3000 

1178  C— — 

1179  3300  CONTINUE 

1180  C—  PC:  COMMAND  — — 

1181  Cllt 

1182  Ct!<  PLATE  GEOMETRY  INPUT 

1183  cm 

1184  LPLA-.TRUE. 

1186  MPX-MPX*1 

1188  IF(MPX.GT.MPDX)  WRITE(8,901)  MPX 

1187  901  FORNATC  *****  NUMBER  OF  PLATES*  M3.'  PROGRAM  ABORTS1  , 

1188  2'  SINCE  MAX.  PLATE  DIMENSION  IS  EXCEEDED.  ••*»•') 

1189  IF(MPX  GT.MPDX)  STOP 

1100  WRITE(8,3301)  MPX 

1191  3301  FORMAT (2H  *,5X.1THIS  IS  PLATE  NO.  ’ . 13 , '  IN  THIS  \ 

1192  2'SIMULATI0H.',T79.1H*) 

1193  MP-MPX 

1194  VRITE(6,3006) 

1196  VRITE(8 ,3008) 

1198  VR1TE(6,3006) 

1197  cm 

1198  cm  MEP (MP) “NUMBER  OF  CORNERS  ON  THE  MP-TH  PLATE. 

1199  cm 

1200  CM*  LSLAB-  1  IMPLIES  TRANSPARENT  THIN  DIELECTRIC  SLAB 

1201  C$88  *  0  IMPLIES  METAL  PLATE,  AND 

1202  C888  *-2  IMPLIES  DIELECTRIC  COVERED  PLATE  OH  BOTH  SIDES 

1203  C888  —4  IMPLIES  DIELECTRIC  COVERED  PLATE  OH  SIDE  OF  NORMAL 

1204  C888 

1206  C888  NOTE:  IF  DIELECTRIC  COVERED,  ONE  MUST  READ  DIELECTRIC  DATA. 

1208  C888 

1207  C888 

1208  READI6.*)  MEP(MP),  LSLAB(MP) 

1209  IF(LSLAB(MP) .Eq  0)  VRITE(8 , 3392) 

1210  3392  FORMAT (2H  *. 61, 'METAL  PLATE  USED  IN  THIS  SIMULATION1 .179, 1R*) 

1211  IFCLSLAB(MP)  EQ  1)  NRITE(8 , 3393) 

1212  3393  FORMAT (2H  *,61. 'TRANSPARENT  THIN  DIELECTRIC  LATER  USED  IN  THIS1, 

1213  2 'SIMULATION 1 . T79, 1H*) 

1214  IF(LSLAB(MP)  EQ  -2)  VRITEC8.3394) 

1216  3394  FORMAT (2H  • ,6X, 'DIELECTRIC  COVERED  PLATE  USED  IN  THIS1, 

1218  2'  SIMULATION 1 ,T79. 1H») 

1217  VRITE(8,3006) 

1218  IF (LSLAB (MP) . EQ  0)  GO  TO  3313 

1219  C938 

1220  C888  HSLAB(MP) -NUMBER  OF  DIELECTRIC  LAYERS  ON  THE  MP  PLATE 

1221  C888 

1222  READ (6,*)  NSLAB(MP) 

1223  HSS-NSLAB (MP) 

1224  IF(NSS  GT.MLDX)  STOP 

1226  VRITE(6,3391) 

1228  3391  F0RMAT(2H  *,13X,' THICKNESS ',2X,' DIELECTRIC \3X,' LOSS', 4X, 

1227  2'PERNITIVITT' .3X. 'LOSS' ,T79,1H*,/. 

1228  32H  *.6X, 'LATER#' ,2X, 'IN  METERS' ,3X, 'CONSTANT' ,3X, 'TANGENT' , 

1229  44X . ' CONSTANT ' , 31 . ' TANGENT ' , T79 , 1H* . / . 

1230  62H  » ,  6X ,  * . '.2X,' - '.2X,' - ’.2X,' . '. 

1231  62X , ' . ’.2X,' - '  ,T79,1H*) 

1232  C888 

1233  C888  DSLAB (NS. MP) -THICKNESS  OF  NS  LATER 

1234  C388 

1236  C63S  ERSLAB (NS , MP) -RELATIVE  DIELECTRIC  CONSTANT  OF  THE  NS  LATER 

1238  C888 

1237  C888  TESLAB (NS, MP) -DIELECTRIC  LOSS  TANGENT  OF  THE  NS  LATER 

1238  C988 

1239  C888  URSUB (NS, MP) -RELATIVE  PERMEABILITY  CONSTANT  OF  THE  NS  LATER 
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1340 

C8M 

1341 

cm 

TMSLAB (NS, MP) -PERMEABILITY  LOSS  TANCEHT  OF  THE  NS  LATER 

1343 

cm 

1343 

00  3313  NS-l.NSS 

1344 

READ (6,0  DSLAB  (NS ,  MP)  . ERSLAB (NS , MP ) ,  TESLAB  (NS ,  MP)  , 

1346 

3URSLAB(NS,MP) .TMSLAB (NS, MP) 

1346 

DSLAB (NS , MP) -DSLAB (NS . MP) ‘UNITS 

1347 

3313 

VRITE(6, 3399)  NS . DSLAB (NS , MP) , ERSLAB (NS , MP) , TESLAB (NS , MP) , 

1348 

SURSLAB(NS.MP) .TMSLAB(NS.MP) 

1340 

3399 

FORMAT (3H  *  ,6X , I3.4X.F9 . 4 ,2X ,F10 .4  ,2X ,F7 .4 , 2X ,FU .4 ,2X, 

1360 

3F7.1.T79.1HO 

1361 

WRITE(6,3006) 

1363 

WR1TE(6 , 3006) 

1363 

WRITEC6.3006) 

1364 

3313 

MEX-MEP (MP) 

1366 

IF(MEX.CT.MEDX)  WRITE(6,903)  MP.MEX 

1366 

903 

FORNATC  •*•••  PLATE  •M3,’  HAS  \  13,  ’  EDGES.  • , 

1367 

3'  PROCRAM  ABORTS  SINCE  MAX.  EDGE  DIMENSION  IS  EXCEEDED.' 

1368 

3.'  ••*•*') 

1369 

IF(MEX  GT.MEDX)  STOP 

1360 

DO  6  ME-l.MEX 

1361 

CHI 

1361 

cm 

XX(N,ME,MP)*X , Y,Z  COMPONENTS  OF  CORNER  6ME  OF  PLATE  *MP. 

1363 

cm 

N-l(X) ,N*3(Y) ,N-3(2) .  INPUT  CORNER  DATA  AS  FOLLOWS: 

1364 

cm 

1  .1  .0 

1366 

cm 

-1.  .1,0 

1366 

cm 

-1  .-1  .0 

1367 

cm 

1  .-1  .0 

1368 

cm 

THIS  IS  THE  INPUT  FOR  A  3  METER  SQUARE  PLATE. 

1360 

cm 

NOTE  THAT  IF  THERE  IS  MORE  THAN  ONE  PLATE,  THEN  THE  CORNER 

1370 

cm 

DATA  FOR  EACH  PLATE  WOULD  FOLLOW  SEQUENTIALLY. 

1371 

cm 

1373 

READ (6,-)  (XX(H ,NE,MP) , N-l ,3) 

1373 

6 

CONTINUE 

1374 

WRITE(6,3303)  LABEL(IUNIT) 

1376 

3303 

FORMA T(3H  • , 31 , 1 PLATE* ' , 3X , ‘ CORNER* ' . 3X , ' INPUT  LOCATION  IN  *. 

1376 

3A6, 41. 'ACTUAL  LOCATION  IN  METERS ' . T79, 1H») 

1377 

WRITE (6. 3303) 

1378 

3303 

FORMAT (3H  ♦,3X,' . '.3X,' . ' 

1379 

3,3(31,20 . '))  ,T79,1H*) 

1380 

DO  3304  ME-l.MEX 

1381 

WRITE (6, 3008) 

1363 

DO  3310  N-1,3 

1383 

3310 

XQ(N)-XX(H ,ME,MP) 

1384 

DO  3311  N-l, 3 

1386 

3311 

XX(N.ME,MP)«UNITS*(XQ(1)*VRT(1 ,N)«XQ(3)*VRT(2,N) 

1386 

3«XQ(3)*VRT(3,N))*TR(N) 

1387 

WRITEC6 , 3306)  MP.ME, (XQ(N) ,N*1 ,3) , (IX(N ,ME,MP) , N-l , 3) 

1388 

3306 

FORMAT (3H  •  ,4X, I3.6X . I3,2X ,2(2X ,F8 .3,20  , \F8 .3))  ,T79,1H*) 

1389 

3304 

CONTINUE 

1390 

CO  TO  3000 

1391 

Cuaa 

■■ 

1393 

3360 

CONTINUE 

1393 

NP:  COMMAND  ■ 

1394 

cm 

1396 

cm 

INITIALIZE  PLATE  DATA. 

1396 

cm 

1397 

LPLA-. FALSE 

1396 

ATI-0 

1399 

WRITE(6,33E1) 

1300 

3361 

FORMAT (3H  ».8I,'  THE  PLATE  DATA  IS  INITIALIZED.  \T79,1H-/ 

1301 

2,2H  -,6X.  ’  NO  PLATES  ARE  PRESENTLY  IN  THE  PROBLEM.  ’.T79.1HO 

1303 

00  TO  3000 

1303 

Cmmuu 

•m 
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1304 

3400 

CONTINUE 

130S 

Csss 

SC :  COMMAND  «“>«* 

1306 

CM* 

1307 

CM* 

MSX=NUMBER  OF  ANTENNA  ELEMENTS. 

1308 

CM* 

1309 

LSMP* . FALSE . 

1310 

NSX=MSX‘l 

1311 

MSXAT=MSAT-*MSX 

1312 

IF (MSXAT . GT .MSDX)  WRITER, 904)  MSXAT 

1313 

904 

FORMAT ('  ♦•**»  HUMBER  OF  SOURCES*  M3,’  PROGRAM’, 

1314 

2'  ABORTS  SINCE  MAX.  SOURCE  DIMENSION  IS  EXCEEDED.  **••»’) 

1316 

IF (MSXAT. GT. MSDX)  STOP 

1316 

WRITE(6,3401)  MSX 

1317 

3401 

FORMAT (2H  *,6X,’THIS  IS  SOURCE  NO.  M3.’  IN  THIS’, 

1318 

2’  COMPUTATION. ’,179, 1H*) 

1310 

VRITE(6,3006) 

1320 

WRITE(6,3008) 

1321 

CM* 

1322 

CM* 

XSS(H,MS)*ITZ  LOCATION  OF  MS-TH  ANTENNA  ELEMENT. 

1323 

CM* 

1324 

CM* 

IMS(MS)=TTPE  OF  LINEAR  ANTENNA 

1326 

CM* 

LT  0:  ELECTRIC  LINEAR  ELEMENT 

1326 

CM* 

GT.O:  MAGNETIC  LINEAR  ELEMENT 

1327 

CM* 

ABS(IMS)=1:  UNIFORM  CURREHT  DISTRIBUTION 

1328 

CM) 

*2:  STANDARD  DIPOLE  CURRENT  DISTRIBUTION 

1329 

CM* 

*3:  CAVITT  BACKED  SLOT  CURRENT  DISTRIBUTION  (TE01) 

1330 

CM* 

1331 

CM) 

HAWS (MS)* APERTURE  WIDTH  IN  WAVELENGTHS  (NOTE:  IF 

1332 

Ct<* 

HAWS (MS)  IS  LESS  THAN  .1  LAMBDA,  SOURCE  IS 

1333 

CM* 

CONSIDERED  TO  BE  DIPOLE  SOURCE 

1334 

C)M 

HS (MS) = LENGTH  OF  LINEAR  ELEMENT  IN  WAVELENGTHS 

1336 

CM* 

1336 

CM* 

THSZ ,PHSZ=DRIENTATION  ANCLES  USED  TO  DEFINE  LINEAR 

1337 

CM) 

ELEMENT  AXIS. 

1338 

CM) 

1339 

CM* 

THSX,PHSX=ORIEHTATIOH  ANGLES  USED  TO  DEFINE  APERTURE 

1340 

CM* 

PLANE  OR  DIPOLE  X-AXIS. 

1341 

CM) 

1342 

CM* 

WMS,WPS=MAGNITUDE  AND  PHASE  OF  EXCITATION  OF 

1343 

CM* 

MS-TH  ELEMENT . 

1344 

CM* 

1346 

MS-MSX 

1346 

MSA(1 ,MS)*0 

1347 

MSA (2. MS) =0 

1346 

READ(6,*)  (XSS(N,MS) ,  N*1 ,3) 

1349 

READ(B, •)  THSZ ,PHSZ , THSX , PHSX 

1360 

READ (6 , *)  IMS(MS) , HS(MS) , HAWS (MS) 

1361 

READ (6 , * )  WMS.WPS 

1362 

IF (IMS (MS) . LT .0)  WRITE(6,3411)  IMS(MS) 

1363 

3411 

FORMAT (2H  •,6X,’THIS  IS  AN  ELECTRIC  SOURCE  OF  TTPE  ’ , 13 ,T79 , 1H*) 

1364 

IF(IMS(MS)  GE  0)  WRITE(6,3412)  IMS(MS) 

1366 

3412 

FORMAT (2H  *,61, 'THIS  IS  A  MAGNETIC  SOURCE  OF  TTPE  ’ ,  I3.T79, 1H0 

1366 

WRITE(6,3006) 

1367 

IF(IUNST  EQ  0)  GO  TO  3414 

1368 

UNSTS»UN IT (1UNST ) 

1369 

WRITE(6 ,3413)  BS(MS) , HAWS (MS) , LABEL (IUHST) 

1360 

3413 

FORMAT (2H  *, 61, ‘SOURCE  LENCTH*' .F10.6, ’  AND  WIDTH*' 

1361 

2,F10.6,1X,A6,T79,1H*) 

1362 

HS (MS) *UNSTS  *UNITF*HS(MS) 

1363 

HAWS(MS)*UNSTS*UNITF*HAWS(MS) 

1364 

IFdUNST.NE  1)  WRITEC6.3008) 

1366 

IF(IUHST  NE.l)  WRITE(6,3413)  HS(MS) , HAWS (MS) , LABEL (1) 

1366 

GO  TO  3416 

1367 

3414 

WRITE(6,3416)  HS (MS) .HAWS (MS) 
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1368 

3416 

F0RMATC2H  *.6X, ’SOURCE  LENGTH* '  ,F10  6/  AND  WIDTH*' 

1389 

3.F10.S, '  WAVELENGTHS' .179, 1H*) 

1370 

3418 

WRITE(8,3006) 

1371 

WS(MS)-WMS*CEXP(CJ*WPS*RPD) 

1373 

WRITEC6 ,3417)  VMS, WPS 

1373 

3417 

FORMAT (2H  *,6X, 'THE  SOURCE  WEIGHT  HAS  MAGNITUDE*' 

1374 

2.F10  6, '  AND  PHASE*' .F10.6.T79  1H*) 

1376 

WRITE(6.3006) 

1378 

WRITE(6,3006) 

1377 

WRITE(6,3421)  LABEL(IUNIT) 

1378 

3431 

FORMAT (2H  *, 16 , 'SOURCE# ' .T17 ,' INPUT  LOCATION  IN  '.A6.T48, 

1370 

2' ACTUAL  LOCATION  IN  METERS T79 , 1H*) 

1380 

WRITE(6,3433) 

1381 

3433 

FORMA T(2H  • . T6 ,7( ' - ' ) , T16,37{ ' -') . T46,27( ’ - ’ ) . 

1383 

2T79.1H*) 

1383 

WRITE(8,3006) 

1384 

DO  3424  N*1 ,3 

1385 

3434 

Xq(N)*XSS(N,MS) 

1388 

DO  3426  N*1 ,3 

1387 

3436 

XSS(N  .MS) 'UNITS*  (XQ(1)  *VRT(1 ,N)*iq(2)  •VRT(2,N) 

1388 

2«Xq(3)*VRT(3,N))*TR(N) 

1389 

WRITEC6.3426)  MS.  (XQ(N)  ,N=1 ,3) ,  (XSS(N.MS)  ,N*1 ,3) 

1390 

3426 

FORMAT (2H  * . T8 , 13 , TIE , F8 . 3. 2( ‘ , F8  3) , T44 ,F8 . 3, 2( ’ , ' ,F8 . 3) 

1391 

2.T79.1H*) 

1303 

H)R*THSZ*RPD 

1393 

PqR=PHSZ*RPD 

1394 

Xq(l)*SIN(TQR)*COS(PqR) 

139S 

Xq(2)*SIN(TqR)*SIN(PqR) 

1396 

xq(3)=cos(TqR) 

1397 

DO  3431  H*1 , 3 

1398 

3431 

VXSSC3, N ,MS)=Xq (1) *VRT(1 , H)*iq(2)*VRT(2 , N)*Xq(3) *VRT(3, N) 

1399 

TqR*THSX*RPD 

1400 

PqR*PHSX*RPD 

1401 

xq(i)*S!N(TqR)*cos(pqR) 

1403 

Xq(2)-SI!!(TqR)*SIM(PqR) 

1403 

xq(3)=cos(TqR) 

1404 

DO  3432  !(=1.3 

1406 

3433 

VXSSCl , N ,MS)=Xq(l)*VRT(l ,N) «Xq (2) •VRT(2,N)*X0(3)*VRT(3,N) 

1406 

DZX'VXSS ( 1 . 1 , MS) • VXSS (3 , 1 , MS) ♦ VXSS( 1 , 2 , MS) • VXSS (3 , 2 . MS) 

1407 

2-VXSS ( 1 , 3 . MS) * VXSS (3 , 3 , MS) 

1408 

IFCABS (DZX) . OT.O. 1)  WRITEC6 . 3436) 

1409 

3436 

FORMAT! ‘  •••  PROGRAM  ABORTS  IN  SOURCE  SECTION  IN  THAT  THE', 

1410 

3'  COORDINATES  ARE  NOT  ORTHOGONAL  Hi  *•*’) 

1411 

IFCABS (DZX)  CTO  1)  STOP 

1413 

VXSS ( 1 , 1 . MS) =VXSS  <1 , 1 , NS) -VXSS (3 , 1 .MS) *DZX 

1413 

VXSSCl ,2,MS) *VXSS(1 ,2 ,MS) -VXSSC3 ,2,MS)*DZX 

1414 

VISS (1 , 3 .MS) =VXSS(1 ,3 , MS) -VXSS (3 , 3 , MS) *DZX 

1416 

DOT-VXSSCl , 1 , MS) ‘VXSSCl . 1 ,MS)«VXSS(1.2,MS)*VXSS(1 ,2,MS) 

1418 

2«VXSSCl .3 ,MS) *VXSS(1 ,3,MS) 

1417 

DOT«SqRT(DOT) 

1418 

VXSSCl , 1 ,MS)*VXSS(1 , 1 ,MS) /DOT 

1419 

VXSS (1 , 2 , NS) -VXSSCl , 2 , MS) /DOT 

1430 

VXSSCl ,3,MS)*VXSS(1 ,3,HS)/D0T 

1431 

VXSS (3, 1 ,MS)*VXSS(3,3,MS) *VISS(1 , 3 , MS) -VXSSC3.3 ,HS)*VXSS(1 ,3,HS) 

1433 

VXSSC2, 2,MS)*VXSS(3,3,MS) *VXSS(1 , 1 ,KS) -VXSS (3 , 1 , MS) *VISS(1 .3 ,MS) 

1433 

VXSS (2 . 3 , MS) *VXSS (3 . 1 , MS) • VXSS (1 . 2 , MS) -VISS (3 , 2 . NS) *VISS ( 1 . 1 , MS) 

1434 

WRITEC8.3008) 

1436 

WRITEC6 ,3006) 

1438 

WRITEC6.3437) 

1437 

3437 

FORMAT (2H  *,6X.‘THE  FOLLOWING  SOURCE  ALIGNMENT  IS  USED:’ 

1438 

2.T79.1H*) 

1439 

DO  3433  NI«1,3 

1430 

WIITEC6.3006) 

1431 

3433 

WRITEC6.3434)  (NI ,NJ ,MS . VXSSCNI , NJ ,MS) , NJ*1 .3) 
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1432  3434  FORMAT (2H  *.1X.3(2X, 'VISSC  .11. 1 . ‘.11.  V  .12.  •)-•  .F0.6) 

1433  2,T79,1H*) 

1434  GO  TO  3000 

1436  C— — 

1436  3810  CONTINUE 

1437  C—  SA:  COMMAND  — — 

1438  CM) 

1430  Ctt)  MSX-NUMBER  OF  ANTENNA  ARRAT  CROUP INCS . 

1440  CM) 

1441  CM)  MSAX-NUMBER  OF  ELEMENTS  PER  GROUPING. 

1442  CM) 

1443  LSMP-  FALSE. 

1444  MSX*MSX*1 

1446  READ(S,*)  MSAX 

1446  MSAT-MSAT«MSAX 

1447  MSXAT=MSAT«MSX 

1448  IF(MSXAT.CT.MSDX)  WRITE(6,004)  MSXAT 

1440  IF (MSXAT .  GT . MSDX)  STOP 

1460  WR1TE(6 , 3806)  MSX.MSAX 

1461  3806  F0RMAT(2H  *,6X,'THIS  IS  SOURCE  NO.  ’ ,13, ‘  IN  THIS’, 

1462  2‘  COMPUTATION.  M70,1H*/2H  *,6X, ’THERE  ARE  \ 

1463  313,’  SOURCES  ARRAYED  TOGETHER .’, T79 , 1H*) 

1464  VRITE(6,3006) 

1466  VRITEC6 , 3006) 

1466  C))) 

1467  C)))  XSS(H ,MA)=XYZ  LOCATION  OF  MA-TH  ANTENNA  ELEMENT. 

1468  C))) 

1460  C)))  XSS(N,MS)=XYZ  LOCATION  OF  MS-TH  WEIGHTED  CENTER  OF  THE 

1460  CM)  ARRAT  GROUPING. 

1461  CM) 

1462  CM)  THE  ARRAY  ELEMENTS  ARE  ASSUMED  TO  HAVE  THE  SAME  LENCTH, 

1463  C)M  WIDTH,  AND  ORIENTATION.  ALSO.  THEY  ARE  ASSUMED  TO  BE 

1464  CM)  EITHER  ALL  MOUNTED  AND  OR  ALL  OFF  A  PLATE. 

1466  CM)  IMS(MS)=TTPE  OF  LINEAR  ANTENNA 

1466  C)M  .LT.O:  ELECTRIC  LINEAR  ELEMENT 

1467  CM)  .  GT  0 :  MAGNETIC  LINEAR  ELEMENT 

1468  CM)  ABS(IMS}=1:  UNIFORM  CURRENT  DISTRIBUTION 

1460  CM)  -2:  STANDARD  DIPOLE  CURRENT  DISTRIBUTION 

1470  CM)  -3:  CAVITY  BACKED  SLOT  CURRENT  DISTRIBUTION  (TE01) 

1471  CM) 

1472  CM)  HAWS  (MS) -APERTURE  WIDTH  IN  WAVELENGTHS  (NOTE:  IF 

1473  CM)  HAXS(MS)  IS  LESS  THAN  .1  LAMBDA,  SOURCE  IS 

1474  CM)  CONSIDERED  TO  BE  DIPOLE  SOURCE 

1476  CM)  HS (MS) -LENGTH  OF  LINEAR  ELEMENT  IN  WAVELENGTHS 

1476  CM) 

1477  CM)  THSZ.PHSZ-ORIENTATION  ANCLES  USED  TO  DEFINE  LINEAR 

1478  C)M  ELEMENT  AXIS 

1479  CM) 

1480  CM)  THSX.PHSX-ORIENTATION  ANCLES  USED  TO  DEFINE  APERTURE 

1481  CM)  PLANE  OR  DIPOLE  X-AXIS 

1482  CM) 

1483  CM)  WMS.WPS-MAGNITUDE  AND  PHASE  OF  EXCITATION  OF 

1484  CM)  MA-TH  ELEMENT. 

1486  CM) 

1486  MS-MSX 

1487  MAI«MSDX-MSAT«1 

1488  MAF-MAI+MSAX-1 

1480  MSA(1 ,MS)«MAI 

1400  MSA(2,MS)-MAF 

1401  DO  3841  MA-MAI.HAF 

1402  3841  READ(6,«)  (XSS(N.MA) ,N-1,3) 

1403  READ (6,*)  THSZ.PHSZ.THSI.PHSX 

1404  R£AD(6.«)  IMS (MS) ,HS (MS) , HAWS (MS) 

1406  XF(IMS(MS)  LT.O)  WRITE(8,34U)  IMS(MS) 
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1498 

IF (INS (MS) . CE.O)  VHITE(6 , 3412)  IMS(MS) 

1497 

VRITE(6 , 3006) 

1498 

IF(IUNSI.Eq.O)  00  10  3814 

1499 

UNSTS=UNIT(IUNST) 

1S00 

VRITE(6 , 34 13)  HS(MS)  .HAWS(MS)  ,UBEL(IUHST) 

1E01 

HS(MS)=UHSTS*UHITF*HS(MS) 

1803 

HASS(MS)*UlfSTS*UIIITF*HAWS(MS) 

1803 

IF(IUllSI.KE.l)  mUTE(6,3006) 

1804 

IF(IUIIST  NE  l)  VKITE(6,3413)  HS(MS)  ,HAWS(MS)  ,UBEL(1) 

1808 

CO  TO  3816 

1806 

3814 

WRITE(6,3416)  HS (MS)  .HAWS (MS) 

1607 

3816 

VKITEC6 ,3006) 

1608 

WS(MS)=(1. ,0.) 

1609 

*MSA=0 . 

1610 

XSAX-O. 

1811 

ISAY=0. 

1813 

XSAZ=0. 

1613 

DO  3843  MA=MAI ,MAF 

1814 

BEAD (6 , *)  WMS , WPS 

1616 

TOITE(6,3817)  MA, WMS, WPS 

1816 

3817 

FORMAT  (2H  *,6X, 'SOURCE  M3,'  HAS  MAGNITUDE^' 

1617 

2.F10  6,'  AMD  PHASE* ‘ ,F10 . 6, T79 , 1H* ) 

1818 

WS(MA)=WMS‘CEXP(CJ*WPS«RPD) 

1619 

WMSA=WMSA*WMS 

1820 

XSAX=XSAX*WMS*XSS(1  ,NA) 

1821 

XSAY=XSAY*WMS*XSS(2,MA) 

1822 

3843 

XSAZ=XSAZ*WMS*XSS(3.MA) 

1823 

XSS(1,MS)=XSAX/WHSA 

1824 

XSS(2,MS)=XSAT/WMSA 

1826 

ISS(3,NS)»XSA2/WNSJ 

1826 

WII TE (6. 3006) 

1627 

WRITE(6,30O6> 

1828 

WR1TE(6,3421)  LABEL ( IOTJI T) 

1629 

WRITE (6, 3422) 

1830 

WR1TE(6,3006) 

1831 

DO  3824  N=1 ,3 

1632 

3824 

Xq(tl)*XSS(tl,NS) 

1633 

DO  3826  N=1 , 3 

1634 

3826 

XSS(H,MS)*U!IITS*(Xq(l)*VRT(l,N)«Xq(2)*VRT(2,N) 

1638 

2*Xq(3)*VRT(3,H))«TR(N) 

1830 

WRITE(6,3426)  NS , (Xq(H) , H*1 .3) , (XSS(N.MS) ,N=1,3) 

1637 

DO  3829  MA*MAI,MAF 

1638 

DO  3827  ll«l,3 

1639 

3827 

Xq(W)'XSS(H,MA) 

1640 

DO  3828  )1«1 ,3 

1641 

3828 

XSS(H ,MA)*UKITS» (Xq (1) *VRT(1 , H) <IQ (2) »VRT (2 ,S) 

1642 

2*Xq(3)*VRT(3,H))*TR(H) 

1643 

3829 

WRITE(6 , 3426)  MA ,  ( X Q ( !l )  ,H*1 , 3)  ,  (XSS(H.HA)  ,H»1 ,3) 

1844 

T9R*THSZ*RPD 

1648 

P9R*PHSZ*RPD 

1646 

Xq(l)*SIK (TQR) *cos(pqR) 

1647 

iq(2)*SIN(T0R)«SIN(PqR) 

1848 

Xq(3)=C0S(TQR) 

1649 

DO  3831  H»l,3 

1680 

3831 

VISS(3,N,MS)=Xq(l)*VRT(l,M)*iq(2)*VRT(2,K)«Xq(3)*VRT(3,R) 

1881 

TQR«THSX*RPD 

1663 

P9R*PHSX»RPD 

1663 

xq(D=siN(TqR)»cos(pqR) 

1684 

XQ(2)*SIN(TqR)*SIK(PqR) 

1666 

xq(3)*cos(TqR) 

1666 

DO  3832  R*l,3 

1667 

3832 

VISS(1 ,R ,MS)*Xq(l)*VRT(l ,R)*Xq(2)*VRT(2 ,R)*Xq(3)*VRT(3,S) 

1668 

DZX=VXSS( 1 , 1 , MS) *VISS(3, 1 ,MS) *VISS (1 , 2 , MS) *VISS (3 , 2 , MS) 

1669 

2« VXSS ( 1 , 3 , HS) *VXSS (3 , 3 , MS) 
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I860 

IF(ABS(DZX).CT.O  1)  WRITE(6,3436) 

isei 

IFUBS(DZX)  ,CT  0.1)  STOP 

1662 

VXSS(1 , 1 ,MS)'VXSS(1 , 1 ,MS) -VXSS(3, 1 ,MS)*DZX 

1863 

VXSSd,2,MS)'VXSS(l,2,MS)-VXSS(3,2,MS)*DZX 

1661 

VXSS(1 ,3,MS)'VXSS(1,3,MS)-VXSS(3,3,MS)«DZX 

1866 

D0T=VXSSd,l,MS)*VXSSd.l,MS)«VXSS(l,2,MS)»VXSS(l,2,MS) 

1666 

2«VXSS(1 , 3,MS)*VXSS(1,3,MS) 

1667 

DOT'SQRT(DOT) 

1668 

VXSS (1,1, MS) 'VXSS (1 . 1 , MS) /DOT 

1669 

VXSS(1 , 2 , MS) 'VXSS (1 , 2, MS) /DOT 

1670 

VXSSCl , 3, MS) 'VXSS (1 , 3, MS) /DOT 

1671 

VXSS (2 , 1 , MS) =VXSS (3 , 2 ,MS) *VXSS (1 , 3 , MS) - VXSS (3 , 3 ,MS) *VXSS(1 , 2 ,MS) 

1672 

VXSS(2 , 2 ,MS)=VXSS(3 ,3 ,MS) *VXSS(1 , 1 ,MS)-VXSS(3 , 1 ,MS) *VXSS(1 , 3 ,MS) 

1673 

VXSS (2 , 3 , MS) 'VXSS (3, 1 ,MS) »VXSS(1 , 2 ,MS) -VXSS (3 , 2 ,MS) • VXSSCl , 1 ,MS) 

1674 

WRIT£(6,3008) 

1676 

WRITE(6,3006) 

1676 

VRITEC6 , 3437) 

1677 

DO  3833  111  =  1,3 

1678 

WRITE(6,3006) 

1679 

3833 

WRITE(8 , 3434)  (HI ,NJ ,MS , VXSSCHI ,N J ,MS) , NJ'l .3) 

1660 

CO  TO  3000 

1681 

c-"= 

=  =  = 

1682 

3440 

CONTINUE 

1583 

C='= 

PR:  COMMAND  """ 

1684 

cm 

1686 

cm 

IPRAD'  1  'NORMALIZATION  FOR  FAR  ZONE  AS  FOLLOWS 

1686 

cm 

1687 

C$18 

PRAD'TOIAL  POWER  RADIATED  IN  WATTS 

1688 

cut 

1689 

cut 

PRAD  CAN  ALSO  BE  SPECIFIED  AS  THE  POWER  INPUT  IN  WATIS. 

1690 

cm 

1691 

Ct$$ 

NOTE  IF  PRAD  IS  LESS  THAN  OR  EQUAL  TO  1  E-30 

1692 

c$$$ 

THAN  LPRAD  WILL  BE  SET  FALSE 

1693 

cm 

1694 

LPRAD=  TRUE 

1696 

READ (6.*)  1PRAD 

1696 

IFCIPRAD  CT  4)  STOP 

1697 

CO  TO  (3444, 3446, 3448, 3447), IPRAD 

1698 

3444 

READ(6 , •)  PRAD 

1699 

IF (PRAD  LT  1  IE- 30)  GO  TO  3442 

1800 

WRITEC6 , 3441)  PRAD 

1601 

3441 

F0RMATC2H  *,6X, 'TOTAL  POWER  RADIATED  IN  WATTS'  ' ,E12  6 

ieo2 

2.T79.1H*) 

1603 

CO  TO  3000 

1604 

3442 

CONTINUE 

1606 

LPRAD'  FALSE 

1606 

PRAD'O 

1607 

WRITE(6,3443) 

1608 

3443 

FORMAT (2H  *,6X,'N0  POWER  RADIATED  IS  SPECIFIED ’, T79, 1H‘) 

1609 

GO  TO  3000 

1610 

3446 

CONTINUE 

1611 

C$$$ 

1612 

cm 

IPRAD  =  2  'MUTUAL  IMPEDANDCE  CALCULATION  Z12  «  Z21 

1613 

cm 

1614 

cm 

CI11  «  SOURCE  TERMINAL  CURRENT  (REAL  AND  IMAGINARY) 

1616 

cm 

CI22  =  RECEIVER  TERMINAL  CURRENT  (REAL  AND  IMACINART) 

1616 

cut 

1617 

REAu(6,»)  CI11.CI22 

1618 

WRITEC6 , 4446)  CI11.CI22 

1619 

4446 

FORMA I (2H  *,6X,'  SOURCE  TERMINAL  CURRENT'  ’ ,2E12  6, T79 , 1H* / 

1620 

2 , 2H  *,6X, 'RECEIVER  TERMINAL  CURRENT-  ' , 2E12 . 6 , T79 , 1H*) 

1621 

GO  TO  3000 

1622 

3446 

CONTINUE 

1623 

cm 
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1624  Cllt  IPRAD  -  3  “COUPLING  VI*  THE  REACTION  THEORY 

162E  Cttt  THIS  CIVES  A  MODIFIED  FRII'S  TRANSMISSION  TYPE  RESULT 

1626  Cttt 

1627  cttt  PRAD  «  POVER  RADIATED  BY  THE  SOURCE 

1628  Cttt  PRADR  =  POVER  RADIATED  BY  THE  RECEIVER  AS  IF  IT  VERE  A  SOURCE 

1629  Cttt 

1630  READ (6,*)  PRAD. PRADR 

1631  VRITE(6 , 4447)  PRAD, PRADR 

1632  4447  F0RMAT(2H  », EX .’  SOURCE  POVER  RADIATED*  ' ,E12 . 6 , T79, 1H»/ 

1633  2.2H  •, EX , 'RECEIVER  POVER  RADIATED*  ' ,EI2  6 , T79. 1H*) 

1634  CO  TO  3000 

163B  3447  CONTINUE 

1636  Cttt 

1637  Cttt  IPRAD*  4  “COUPLING  BY  THE  LINVILLE  METHOD 

1638  Cttt 

1639  Cttt  CI11  *  SOURCE  TERMINAL  CURRENT  (REAL  AND  IMAGINARY) 

1640  Cttt  CI22  “  RECEIVER  TERMINAL  CURRENT  (REAL  AND  IMAGINARY) 

1641  Cttt 

1642  Cttt  Zll  “  SOURCE  TERMINAL  IMPEDANCE  (REAL  AND  IMAGINARY) 

1643  Cttt  Z22  “  RECEIVER  TERMINAL  IMPEDANCE  (REAL  AND  IMAGINARY) 

1644  Cttt 

1646  READ (6 , *)  CI11.CI22 

1646  VRITE(6.444S)  CI11.CI22 

1647  READ (6 , *)  Z11.Z22 

1648  VRIT£(6 , 4446)  Z11.Z22 

1649  4446  F0RMAK2H  *,6X,'  SOURCE  TERMINAL  IMPEDANCE*  '  ,2E12 . 6  ,T79, 1H*/ 

1660  2.2H  *,6X, ’RECEIVER  TERMINAL  IMPEDANCE*  ’ .2E12 . 6 , T79, 1H») 

1661  GO  TO  3000 

1662  C==**“* 

1663  4400  CONTINUE 

1664  C*=*  RC:  COMMAND  ««==** 

1666  Cttt 

1666  Cttt  MRX=NUMBER  OF  ANTENNA  ELEMENTS 

1667  Cttt 

1668  LRCVR-  TRUE 

1669  LRMP*  FALSE 

1680  MRX=MRX+1 

1661  MRXAT*MRAT*MRX 

1682  IF(MRXAT  GT.MRDX)  VRITE(8 ,4404)  MRXAT 

1663  4404  FORMAT ( ’  •••**  HUMBER  OF  RECEIVERS*  ’,13,’  PROGRAM’, 

1664  2’  ABORTS  SINCE  MAX  RECEIVER  DIMENSION  IS  EXCEEDED  ».••*’) 

1666  IF(MRXAT  GT  MRDX)  STOP 

1886  VRITE(6,4401)  MRX 

1667  4401  FORMAT (2H  *,6X,’THIS  IS  RECEIVER  NO.  M3,’  IN  THIS’, 

1668  2’  COMPUTATION. * ,T79,1H*) 

1669  VRITE(6 , 3006) 

1670  ¥RITE(6 , 3006) 

1671  Cttt 

1672  Cttt  XRR(N,MR)*XTZ  LOCATION  OF  MR-TH  ANTENNA  ELEMENT. 

1673  Cttt 

1674  Cttt  IMR(MR) *TTPE  OF  LINEAR  ANTENNA 

1676  Cttt  LT.O:  ELECTRIC  LINEAR  ELEMENT 

1676  Cttt  GT  0:  MAGNETIC  LINEAR  ELEMENT 

1677  Cttt  ABS(IMR)*1 :  UNIFORM  CURRENT  DISTRIBUTION 

1678  Cttt  *2:  STANDARD  DIPOLE  CURRENT  DISTRIBUTION 

1679  Cttt  *3:  CAVITY  BACKED  SLOT  CURRENT  DISTRIBUTION  (TE01) 

1680  Cttt 

1681  Cttt  HAVR (MR) “APERTURE  WIDTH  IN  WAVELENGTHS  (NOTE:  IF 

1682  Cttt  HAVR (MR)  IS  LESS  THAN  .1  LAMBDA,  RECEIVER  IS 

1683  Cttt  CONSIDERED  TO  BE  DIPOLE  RECEIVER 

1684  Cttt  KR(MR)*LENGTH  OF  LINEAR  ELEMENT  IN  WAVELENGTHS 

1686  Cttt 

1686  Cttt  THRZ,PHRZ*ORIENTATION  ANCLES  USED  TO  DEFINE  LINEAR 

1667  Cttt  ELEMENT  AXIS 
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1688 

CUI 

1689 

cm 

THRX ,PHRX=0RIEHTATI0N  A1ICLES  USED  10  DEFINE  APERTURE 

1690 

cm 

PUNE  OR  DIPOLE  X-AIIS. 

1691 

cut 

1692 

cm 

WMR,WPR=MAGNITUDE  AND  PHASE  OF  EXCITATION  OF 

1693 

Cttt 

MR-TH  ELEMENT. 

1694 

cttt 

1696 

MR*MRX 

1696 

MRA(1 ,MR)=0 

1697 

MRA(2,MR)=0 

1698 

READ (6 , *)  (XRR(N,MR) , N= 1 ,3) 

1699 

READ (6,*)  THRZ , PHRZ , THRX , PHRX 

1700 

READC6,*)  IMR(MR),HR(MR),HAWR(MA) 

1701 

R£AD(6,*)  WMR.WPR 

1702 

IF(IMR(MR) .  LT  0)  WRITE(8.4411)  IMR(MR) 

1703 

4411 

FORMAT (2H  *,6X,'THIS  IS  AN  ELECTRIC  RECEIVER  OF  TTPE  \I3 

1704 

2.T79.1HO 

1706 

IF(IMR(MR) .  GE  0)  WRITE(8 , 4412)  I MR (MR) 

1706 

4412 

FORMAT (2H  *,6X,'TH1S  IS  A  MAGNETIC  RECEIVER  OF  TTPE  M3 

1707 

2.T79.1H*) 

1708 

WRITE(6,3006) 

1709 

IF(IUNST.EQ.O)  GO  TO  4414 

1710 

UNSTS=UNIT(IUNST) 

1711 

WRIIE(6 , 4413)  HR(MR) ,HAWR(MR) . LABEL (IUNST) 

1712 

4413 

FORMAT (2H  * ,6X , 'RECEIVER  LENGTH* ' ,F10 . 6, ’  AND  WIDTH*' 

1713 

2.F10  6,1X,A6,T79,1H») 

1714 

HR(MR)*UNSTS*UNITF*HR(MR) 

1716 

HAKR(MR)*UHSTS*UNITF*HAWR(MR) 

1716 

IF  (IUNST  HE  1)  WRITE(6 , 3006) 

1717 

IF (IUNST. HE. 1)  WRITEC6 ,4413)  HR(MR) .HAWR(MR) , LABEL(l) 

1718 

CO  TO  4416 

1719 

4414 

WRITE(8,4416)  HR(MR) .HAWR(MR) 

1720 

4416 

FORMAT (2H  • ,6X, 'RECEIVER  LENGTH*' ,F10. 6, '  AND  WIDTH*' 

1721 

2 , F10  6 , '  WAVELENGTHS' .T79.1H*) 

1722 

4416 

WRITE(8 , 3006) 

1723 

WR(MR)*WNR*CEXP(CJ‘WPR«RPD) 

1724 

WRITE(6,4417)  WMR.WPR 

1726 

4417 

FORMAT (2H  •,6X,'THE  RECEIVER  WEIGHT  HAS  MAGNITUDE*' 

1728 

2 , F10 .  6 ,  *  AND  PHASE*' .F10.6.T79.1H*) 

1727 

WRITE(6 , 3006) 

1728 

WRITE(6 , 3006) 

1729 

WRITE(6 , 4421)  LABELdUNIT) 

1730 

4421 

FORMAT (2H  », T6 , 'RECEIVER* ', T17 ,' INPUT  LOCATION  IN  ',46,146, 

1731 

2 ' ACTUAL  LOCATION  IN  METERS 1 , T79, 1H*) 

1732 

WRITE(6 , 4422) 

1733 

4422 

FORMAT (2H  * ,T6 ,7 ( ' -') ,T16,27( ' - ' ) ,T46 , 27 ( ' - ’ ) , 

1734 

2T79.1H*) 

1736 

WRITE(6,3006) 

1736 

DO  4424  N-1,3 

1737 

4424 

XQ(N)*XRR(N,MR) 

1738 

DO  4426  N*1 ,3 

1739 

4426 

XRR(N.MR)*UNITS*(XQ(l)*VRT(l,N)-*iq(2)*VST(2,N) 

1740 

2«Xq(3)*VRT(3.N))«TR(N) 

1741 

WRITE(6 , 4426)  MR, (Xq(N) ,N*1 ,3) , <XRR(N , MR) ,N*1 .3) 

1742 

4426 

FORMAT (2H  • , T8, 13, T16.F8 . 3,2( ' , ' ,F8 . 3) , T44 , F8 . 3,2( ' , ' ,F8 . 3) 

1743 

2.T79.1H*) 

1744 

TqR*THRZ*RPD 

1746 

PqR*PHRZ*RPD 

1746 

xq(i)*siNdqR)»cos(pqR) 

1747 

Xq(2)*SIN(TqR)*SIN(PqR) 

1748 

xq(3)*cos(TqR) 

1749 

DO  4431  N*1 , 3 

1760 

4431 

VIRR(3,N ,MR)*iq(l) »VRT(1 ,N)»iq(2) »VRT(2 , N) »iq(3) *VRT (3 ,N) 

1761 

TqR*THRX*RPD 
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1762 

1763 

1764 
1766 

1766 

1767 

1768 

1769 

1760 

1761 

1762 

1763 

1764 
1766 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 
1776 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 
1786 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 
1796 

1796 

1797 

1798 

1799 

1800 
1801 
1802 
1603 
1804 
1806 
1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 
1816 


POR=PHRX*RPD 
XQ(1)CSIN  (TQR)  »CDS(PQR) 

IQ  (2)  -SIN  (TQR)  >SIN  (PQR) 
iq<3)=C0S(TQR) 

00  4432  N=1 , 3 

4432  VXRR(1 , N,MR)sXQ(l)*VRT(l,N)*iq(2)*VRT(2,N)*Xq(3)*VRT(3,N) 
DZXaVXRR(l , 1 ,MR) * VXRR (3 ,l,MR)*VXRRd.2,MR) »VXRR(3,2,MR) 

2*  VXRR  ( 1 . 3 ,  NR)  *  VXRR  (3 , 3 ,  MR) 

IFUBS(DZX)  CT.0.1)  VRITE(6 , 4436) 

4436  FORMAT ('  *»*  PROORAM  ABORTS  IN  RECEIVER  SECTION  IN  THAT  THE1, 

2'  COORDINATES  ARE  NOT  ORTHOGONAL  lit  ***’) 

IF(ABS(DZX)  CTO  1)  STOP 

VXRR(1 , 1 ,MR)=VXRR(1 , 1 ,MR> -VXRR(3 , 1 .MR) *DZX 

VXRR(1 ,2,MR)*VXRR(1 ,2,MR) - VXRR (3, 2 , MR) *DZX 

VXRR ( 1 , 3 , MR) =VXRR ( 1 , 3 , MR) - VIRR (3 , 3 , MR) »DZX 

DOT=VXRR ( 1 , 1 , MR) » VXRR ( 1 . 1 ,MR) « VXRR ( 1 , 2 , MR) • VXRR ( 1 . 2 , MR) 

2-*VXRR(l ,  3 ,MR)  *VXRR(1 ,3,MR) 

DOT=SqRT(DOT) 

VXRR(1 , 1 ,MR)=VXRR(1 , 1 , MR) /DOT 
VXRR (1.2. MR) =VXRR (1,2, MR) /DOT 
VXRR ( 1 . 3 . MR) =VXRR (1 , 3 ,  Ml) /DOT 

VXRR(2,1.MR)=VXRR(3,2,W)*VXRR(1,3,MR)-VXRR(3,3,MR>*VIRR(1.2,MR) 
VXRR (2. 2 .MR) =VXRR (3 , 3 , MR) » VXRR ( 1 . 1 , MR) - VXRR (3 , 1 , MR) • VXRR (1 , 3 , MR) 
VXRR(2 ,3 ,MR)SVXRR(3 , 1 ,MR) *VXRR(1 ,2 ,MR) *VXRR(3 ,2 ,MR) *VXRR(1 . 1 ,MR) 
WRITE(6.3006) 

WRITE(6 , 3006) 

WRITE(6,4437) 

4437  FORMAT (2H  •.BX.’THE  FOLLOWING  RECEIVER  ALIGNMENT  IS  USED:’ 
2.T79.1H*) 

DO  4433  111=1.3 
VBIT£(8,3006) 

4433  WR1TE(6, 4434)  CHI  .If  J  ,NR ,  VXRR(RI  ,RJ ,  MB)  , H J=1 . 3) 

4434  F0RNAT(2H  * . IX , 3(2X, 1 V1RR( ' , II , 1 . ' , II , ‘ . 1 . 12 , ' )  =  ’ ,F9 .6) 
2.T79.1H*) 

CO  TO  3000 

Osssasc 

4810  CONTINUE 

C===  RA  COMMAND  ====== 

cm 

cm  MRX=HUMBER  OF  ANTENNA  ARRAT  GROUPINGS. 

CltS 

CMI  MRAX=HUMBER  OF  ELEMENTS  PER  GROUPING. 

cm 

LRCVR= . TRUE . 

LRMP-  FALSE 
MRX=MRX*1 
READ (6, »)  MRAX 
MRAT=MRAT*MRAX 
MRXAT=MRAT*MRX 

IF(MRXAT.GTMRDX)  WRITE(6, 4404)  MRXAT 
IF(MRXAT  GT  MRDX)  STOP 
VRITE(6,4806)  MRX.MRAX 

4806  FORMAT (2H  «,6X,’THIS  IS  RECEIVER  NO.  1 .13, '  IN  THIS’, 

2’  COMPUTATION. ' ,T70,1H*/2H  *,6X, 'THERE  ARE  ’ . 

313,’  RECEIVERS  ARRATED  TOGETHER. 1 ,T79, 1H*) 

WRITE(6,3006) 

WRITE(6,3006) 

cm 

Cm  IRR(N,MA)=XTZ  LOCATION  OF  MA-TH  ANTENNA  ELEMENT. 

cm 

CHI  XRR(N,MR)=XTZ  LOCATION  OF  MR-TH  WEIGHTED  CENTER  OF  THE 
CHI  ARRAT  GROUPING. 

cm 

Ctlt  THE  ARRAT  ELEMENTS  ARE  ASSUMED  TO  HAVE  THE  SAME  LENGTH, 
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1810 

«)) 

WIDTH,  HID  ORIENTATION .  ALSO,  THEY  ARE  ASSUMED  TO  BE 

1817 

cm 

EITHER  ALL  MOUNTED  AND  OR  ALL  OFF  A  PLATE. 

1818 

cm 

IMR(MR)*TYPE  OF  LINEAR  ANTENNA 

1819 

cm 

.LT.O.  ELECTRIC  LINEAR  ELEMENT 

1820 

cm 

.CT.O:  MAGNETIC  LINEAR  ELEMENT 

1821 

cm 

ABS(IMR)*1 :  UNIFORM  CURRENT  DISTRIBUTION 

1822 

cm 

=2:  STANDARD  DIPOLE  CURRENT  DISTRIBUTION 

1823 

CM) 

*3:  CAVITY  BACKED  SLOT  CURRENT  DISTRIBUTION  (TE01) 

1824 

CM) 

1826 

c)M 

HAWR (MR) 'APERTURE  WIDTH  IN  WAVELENGTHS  (NOTE:  IF 

1828 

«)) 

HAtH(MR)  IS  LESS  THAN  .1  LAMBDA,  RECEIVER  IS 

1827 

CM) 

CONSIDERED  TO  BE  DIPOLE  RECEIVER 

1828 

CM) 

HR(MR) 'LENGTH  OF  LINEAR  ELEMENT  IN  WAVELENGTHS 

1829 

CM) 

1830 

CM) 

THRZ.PHRZ'ORIENIATION  ANGLES  USED  TO  DEFINE  LINEAR 

1831 

CM) 

ELEMENT  AXIS. 

1832 

CM) 

1833 

CM) 

THRX.PHRX'ORIENTATION  ANGLES  USED  TO  DEFINE  APERTURE 

1834 

CM) 

PLANE  OR  DIPOLE  X-AXIS. 

1836 

CM) 

1838 

CM) 

WMR.WPR'MAGNITUDE  AND  PHASE  OF  EXCITATION  OF 

1837 

CM) 

MA-TH  ELEMENT 

1838 

CM) 

1839 

MR'MRX 

1840 

MAI=MRDX-MRAT«1 

1841 

NAF'NA1*MRAX-1 

1842 

MRA(1 , MR) 'MAI 

1843 

MR.  A  (2  ,MR)«MAF 

1844 

DO  4841  MA'MAI.MAF 

1846 

4841 

READ(6, *)  (XRR(N.MA) ,H=1,3) 

1848 

READ (6,*)  THRZ , PHRZ , THRX , PHRX 

1847 

READ (6 , *)  IMR(MR)  ,HR(MR)  .HAWR(MR) 

1848 

IF(IMR(MR)  LT.O)  WRITE(6,4411)  IMR(MR) 

1849 

IF(IMR(MR)  GEO)  WRITE(6 , 4412)  I MR (MR) 

1860 

WRITE(6.3008) 

1861 

IFdUHST .  EQ  0)  GO  TO  4814 

1862 

UHSTS=UHIT(IUNST) 

1863 

WRITE(8.4413)  HR  (MR)  ,HAWR(MR) ,  LABEL  (IUIIST) 

1864 

HR(MR)»UNSTS»UHITF*HR(MR) 

1866 

HAWR(MR)'UNSTS*UNITF*HAWR(MR) 

I860 

IFdUHST  NE  1)  WRITE(8,3008) 

1867 

IFdUHST . HE.  1)  WRITE(8,4413)  HR(MR)  .HAWR(MR)  ,LABEL(i) 

1868 

GO  TO  4816 

1869 

4814 

WRITE(6,4416)  HR(MR) , HAWR(MR) 

I860 

4816 

WRITE(6 , 3006) 

1881 

WR(MR)*(1 . ,0.) 

1882 

WMRA'O . 

1863 

XRAX'O . 

1884 

XRAT'O . 

1886 

XRAZ'O 

1888 

DO  4843  MA'MAI.MAF 

1867 

READ (6,*)  WMR.WPR 

1888 

WRITE(6 ,4817)  MA, WMR.WPR 

1869 

4817 

FORMAT (2H  *,6X, 'RECEIVER  ’.13.'  HAS  MAGNITUDE*’ 

1870 

2.F10.6, '  AND  PHASE*' , F10 . 6.T79. 1H*) 

1871 

WR(MA) *WMR*CEXP (C J*WPR*RPD) 

1872 

WMRA*WMRA*WMR 

1873 

XRAX*XRAI«WMR*XRR(1 .MA) 

1874 

IRAT*XRAY-*WMR*IRR(2,MA) 

1876 

4843 

IRAZ*IRAZ<WMR*XRR(3,MA) 

1878 

XRR(1 ,MR)*XXAX/WMRA 

1877 

XRR (2 , MR) *XRAT /WMRA 

1878 

XRP  Y3 , MR) *XRAZ/WMRA 

1879 

WRITE(6 , 3006) 
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1880 

WHITE (8, 3006) 

1881 

VRITE(6 , 4421)  LABEL  dUNIT) 

1882 

WRITE(6,4422) 

1883 

WRITE (6 ,3006) 

1661 

00  4824  N*1 ,3 

1865 

4824 

Xq(N)-XRROl.MR) 

1686 

DO  4826  H-1,3 

1887 

4826 

XRR(ll.MR)*UIIITS*Uq(l)*VRT<l,H)-*iq(2)*VRT(2,N) 

1888 

2*X(J(3)  »VRT  (3  ,N))*TR(N) 

1880 

WRITEC6 , 4426)  MR. CXQ<H> ,N«1 ,3) , URR(N ,MR) , N*1 ,3) 

1800 

DO  4820  MA-MAI ,MAF 

1801 

DO  4827  N-l ,3 

1602 

4827 

Xq (N)-XRR(N ,MA) 

1803 

DO  4828  N-l,  3 

1804 

4828 

XRR  (11,  MA) -UNITS* (Xq(l)*VRT(l ,N) «Xq(2) *VRT(2, N) 

1805 

2*Xq(3)*VRT(3,N))*TR(H) 

1806 

4820 

WRITE (6 , 4426)  MA. (xq CM) , N-l ,3) , (XRR(K.MA) ,N»1 ,3) 

1807 

TqR-THRZ*RPD 

1808 

PqR*PHRZ*RPD 

1800 

xq(i)=siH(TqR)«cos(pqR) 

1000 

xq(2)«sitidqR)*siN(pqR) 

1001 

xq(3)*cos(TqR) 

1002 

DO  4831  11*1 ,3 

1003 

4831 

VIRR(3 , H ,MR)*Xq (1) *VRT(1 , N) *Xq (2) *VRT(2,H)*Xq (3) *VRT(3 ,N) 

1004 

TqR*THRX*RPD 

1006 

PqR=PHRX*RPD 

1006 

xq(i)*sni(TqR).cos(pqR) 

1007 

xq(2)*sin(TqR).sin(pqR) 

1008 

xq(3)=cos(TqR) 

1000 

DO  4832  11*1,3 

1010 

4832 

VXRR(l,N.MR)-Xq(l)»VRT(l,H)«Xq(2)*VRT(2,K)*Xq(3)*VRT(3,N) 

1011 

DZX*VXRR(1 , 1 ,MR) * VXRR (3, 1 ,MR) *VXRR(1 ,2,MR)*VXRR(3 ,2 ,MR) 

1012 

2* VXRR ( 1 , 3 , MR) . VXRR(3 , 3 . HR) 

1013 

IF(ABS(DZX)  GT.0.1)  WRITE(8 , 4436) 

1014 

IF(ABS(DZX)  CTO  1)  STOP 

1016 

VIRR(1 . 1 ,MR)=VXRR(1 , 1 .MR) -VXRR(3, 1 ,MR)*DZX 

1016 

VXRR ( 1 . 2 . MR) *VXRR ( 1 . 3 . MR) -VXRR (3 , 2 . MR) *DZX 

1017 

VXRR ( 1 , 3 . MR) -VXRR ( 1 . 3 , MR) -VXRR (3 , 3 , MR) *DZX 

1018 

DOT-VXRR ( 1 , 1 , MR) * VXRR (1 . 1 ,MR) +VXRR ( l , 2 ,MR) * VIRR(1 , 2 , MR) 

1010 

3* VXRR (1 , 3 , MR) * VXRR (1 , 3 , MR) 

1020 

DOT-sqRT(DOT) 

1021 

VXRR(1 , 1 ,MR)-VXRR(1 , 1 ,MR) /DOT 

1022 

VXRR (1 , 2 , MR) - VIRR (1 , 2 , MR) /DOT 

1023 

VXRR (1 , 3 , MR) -VXRR (1 , 3 , MR) /DOT 

1024 

VXRR (2 . 1 . MR)*VXRR(3 , 3 , MR) *VXRR(1 , 3 , MR) -VXRR (3 , 3 , MR) • VXRR (1 , 2 , MR) 

1026 

VXRR(2.2 ,MR)-VXRR(3 ,3 ,MR) *VXRR(1 , 1 ,MR) -VXRR(3 , 1 ,MR) *VXRR(1 ,3 ,MR) 

1026 

VXRR (2 . 3 , MR) -VXRRC3 , 1 , MR) • VXRR (1 , 2 , MR) - VXRR (3 , 2 , MR) • VXRR (1 , 1 , MR) 

1027 

WRITE(8 , 3006) 

1028 

WRITE(6,3006) 

1020 

WRITEC6 , 4437) 

1030 

DO  4833  NI-1,3 

1031 

WR1TE(6,3006) 

1032 

4833 

WRITE(6,4434)  (HI ,NJ ,MR, VXRR(HI ,NJ ,MR) ,HJ-1,3) 

1033 

00  TO  3000 

1034 

IS 

1036 

3460 

CONTINUE 

1036 

8M:  COMMAND  ...... 

1037 

CM* 

1036 

CM* 

PUD-TOTAL  POWER  UDIATED  IN  WATTS 

1030 

CM* 

1040 

IPRAD* .  TRUE 

1041 

READ (6,*)  PRAD 

1942 

WRITE(6,3441)  PUD 

1043 

WRITE(6,3006) 
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1944 

cm 

1S45 

CM! 

MSX=NUMBER  OF  ANTENNA  SEGMENTS 

1946 

cm 

1947 

LSMP« . TRUE. 

1948 

READ(6,»)  MSI 

1949 

IF(MSX  .CT.MSDX)  WRITE(6,3477)  MSX 

19S0 

3477 

FORMAT C  NUMBER  OF  SEGMENTS2  M3. 

1961 

3'  PROCRAM  ABORTS  SINCE  MAX.  SOURCE  DIMENSION' 

1963 

3. '  IS  EXCEEDED.  *•*•«') 

1963 

IF (MSX. CT.MSDX)  STOP 

1964 

WRITE(6 , 3461)  MSX 

1966 

3461 

F0RMAK3H  *,6X,  ‘THERE  ARE  '.13.'  SEGMENTS  IN  THIS', 

1966 

3'  COMPUTATION. '.T79.1H*) 

1967 

WRITE(6,3006) 

1968 

WRITE(6 , 3006) 

1969 

cm 

1960 

cm 

XS(MS,N)=XYZ  LOCATION  OF  MS-TH  ANTENNA  SEGMENT 

1961 

cm 

1963 

cm 

IMS(MS)=-1»ELECTRIC  LINEAR  ELEMENT  WITH  A  OHIFORM  DISTRIBUTION 

1963 

cot 

1964 

cm 

HS (MS) -LENGTH  OF  LINEAR  ELEMENT 

1966 

cm 

1966 

cm 

THSZ.PHSZ»ORIENTATIOH  ANGLES  USED  TO  DEFINE 

1967 

cttt 

LINEAR  ELEMENT  AXIS. 

1968 

c  m 

1969 

cm 

WMS , WPS=REAL  AND  IMAGINARY  CURRENT  WEIGHT. 

1970 

cot 

1971 

WRITE(6,3468)  LABEL (IUN IT) 

1973 

3468 

FORMAT (2H  * ,17, 'MS' .113, ’HS: ' .A6.T33, 'HSiMETERS', 

1973 

3T41, 'INPUT:  THS , PHS ', T80 ,' ACTUAL :  THS.PHS’ ,T79, 1H*) 

1974 

WRITE(6,3469) 

1976 

3469 

FORMAT (3H  * , T6 ,3( ' - ' ) ,T13,30( '- ') , T40, 16( ' - ' ) ,T69, 

1976 

317( '-') ,T79, 1H») 

1977 

WRITE (6 , 3006) 

1978 

DO  3463  MS=1 , MSX 

1979 

READ (6 , * )  (XSSCN.MS) ,N=t.3) ,RS(MS) .tKSZ.PHSZ 

1980 

MSA(1,MS)«0 

1981 

MSA(2,MS)*0 

1983 

IMS  (MS) —1 

1983 

HAWS (MS) =0. 

1984 

HSQ=HS(MS) 

1986 

HS(MS)*UNITS*HSG 

1986 

TQ=90  -THSZ 

1987 

PG=PHSZ 

1988 

Xq(l)-SIH(Tq*RPD)*COS(Pq*RPD) 

1989 

xq (2) *SIN (Tq*RPD) *SIN (Pq*RPD) 

1990 

Xq(3)=C0S(Tq*RPD) 

1991 

DO  3481  N-1,3 

1993 

3481 

iqR(H)=Xq(l)*VRT(l,N)*Xq(3)*VRT(3,N)‘Xq(3)*VRT(3,N) 

1993 

THSZ»DPR*BTAN2(SQRT(XqR(l)»iqR(l)«XQR(2)*XqR(3)) , XqR (3) ) 

1994 

PHSZEDPR*BTAN3(XqR(2) ,XqR(l)) 

1996 

WR1TE(6 . 3464)  HS , HSq , HS(MS) , Tq . Pq , THSZ . PHSZ 

1996 

3464 

FORMAT (3H  • ,16, I3,3X,3(3X ,F8. 4) ,61 ,3(31 ,F8 . 3, ' , ' ,F8 .3) 

1997 

3.T79, 1H») 

1998 

DO  3484  NM.3 

1999 

3484 

VISS(3,N,MS)-iqR(N) 

3000 

VXSS(1 . 1 ,MS)»COS(THSZ‘RPD)*COS(PHSZ*RPD) 

3001 

VXSS( 1 , a ,MS) «COS (THSZ*RPD) *SIN (PHSZ *RPD) 

3003 

VXSS(1 ,3 ,MS)*-SIN(THSZ*RPD) 

3003 

VXSS (3 . 1 , MS) *-SIN (PHSZ*RPD) 

3004 

VXSS (3 , 3 , MS) «COS (PHSZ»RPD) 

3006 

VXSS (3, 3, MS) >0. 

3006 

3463 

CONTINUE 

3007 

W»ITE(6,3006) 
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2008  niTE(e,3ooe) 

2009  VRITE(6,3006) 

2010  VRITE(6,3464) 

2011  3464  F0RMAT(2H  • ,T31 . 'SECMENT  COORDINATES ' ,T79, '•' ) 

2012  VRITE(6 , 3000) 

2013  VRITE(6,3006) 

2014  VRITE(6 , 3456)  LABEL (IUH IT) 

2016  3466  F0RMAT(2H  • ,T7 . ‘MS' , 114 ,' INPUT  LOCATION  IN  ‘,36, 

2016  2T43, ‘ACTUAL  LOCATION  IN  METERS' ,T79, ‘ * ‘ ) 

2017  VR1TE(6 , 3467) 

2018  3467  F0RMAI(2H  * , T6,3( ' - ‘ ) . T13,2fl( ‘-‘) . 142, 27( ‘ - ‘) , 179, ‘» ‘ ) 

2019  VRITE(6,3006) 

2020  DO  3473  MS>1,MSX 

2021  DO  3474  N*l,3 

2022  3474  Xq(N)*XSS(N ,MS) 

2023  DO  3475  N*l,3 

2024  3476  XSSOJ  ,MS)*UNITS*  (X  Q  ( 1 )  »  VRT  <  1  ,N)  ‘XQ(2)  *VRT(2,N) 

2026  2«Xq(3)*VRT(3,N))«TR(N) 

2026  VRITE(6 , 3476)  MS ,  (Xq(ll)  ,N«1 ,3) ,  (XSS(N  ,MS)  ,N«1 ,3) 

2027  3476  F0RMAT(2H  * ,T6, I3.T13.F8  3,2C , ‘ ,F8 .3) .T42.FB.3, 

2028  22( ' , ' ,F8 .3) , T79.1H*) 

2029  3473  CONTINUE 

2030  VRITE(6,3006) 

2031  VRITE(6,3006) 

2032  VRITE(6,3486) 

2033  3486  F0RMAT(2H  » ,T33, 'CURRENT  WEIGHTS ' ,T79 , 1H* , /2H  ♦ ,T7 , ‘MS’ ,T18 , 

2034  2 ' REAL '  ,T31,  'IMAC.  '  ,T46,  'MAC.  '  ,167,  'PHASE'  ,T79,1H») 

2036  VRITE(6 , 3468) 

2036  3486  FORMAT (2H  • . T6,3( ' - ' ) ,T17,6( ' - ‘ ) . 130, 7( ' - ‘ ) , T46, 6C ‘ - ' ) , 

2037  2T66 ,  7( '  - ' ) ,T79, 1H») 

2038  DO  3466  MS=1,MSX 

2039  READ(6,*)  VMS, VPS 

2040  VS (MS) =CMPLX (VMS , VPS) 

2041  VMM*BABS (CMPLX (VMS , VPS) ) 

2042  VPP*DPR*BTAH2(WPS,VMS) 

2043  VRITE(6 , 3466)  MS . VMS , VPS , VMM . VPP 

2044  3466  FORMAT (2H  ♦ , T6, 13 , 6X ,E11 . 4 ,2X .Ell .4 .4X.E11 . 4 ,2X ,FB . 3 ,T79. 1H*) 

2046  3466  CONTINUE 

2046  VRITE(6 , 3008) 

2047  CO  TO  3000 

2048  C«'*»*'= 

2049  4460  CONTINUE 

2060  C***  RM  COMMAND  «««.». 

2061  CIM 

2062  CIM  PRADR=TOTAL  POVER  RADIATED  IN  VATTS 

2063  CIM 

2064  READ (6,*)  PRADR 

2066  VRITE(6,3441)  PRADR 

2066  VRITE(6,3006) 

2067  CIM 

2068  CIM  MRI-NUMBER  OF  ANTENNA  SEGMENTS 

2069  CIM 

2060  LRCVR*  TRUE 

2061  LRMP-  TRUE. 

2062  READ (6,»)  MRX 

2063  IF(MRX  CT.MRDX)  VRITE(6,4477)  MRX 

2064  4477  FORMATC  •«•••  NUMBER  OF  SEGMENTS*  ‘.13, 

2066  2'  PROGRAM  ABORTS  SINCE  MAX.  RECEIVER  DIMENSION' 

2066  3, ‘  IS  EXCEEDED.  »*•••') 

2067  IF (MRX. CT.MRDX)  STOP 

2068  VRITE(6,3461)  MRX 

2069  VRITE(6,3006) 

2070  VRITE(6,3006) 

2071  CIM 


2072 

Cttt 

XRR(N,MR)-XYZ  LOCATION  OF  NR-TH  ANTENNA  SEGMENT 

2073 

cm 

2074 

cm 

IMR(MR)  — 1-ELECTRIC  LINEAR  ELEMENT  WITH  A  ONIFORM  DISTRIBUTION 

2076 

cm 

2076 

cm 

HR(MR)-L£NCTH  OF  LINEAR  ELEMENT 

2077 

cm 

2078 

cm 

THRZ.PHRZ-ORIEHTATION  ANGLES  USED  TO  DEFINE 

2079 

cm 

LINEAR  ELEMENT  AXIS. 

2080 

cm 

2081 

CM$ 

WMR.WPR-REAL  AND  IMAGINARY  CURRENT  WEIGHT. 

2082 

CHt 

2083 

WRITE(6,4468)  LABEL(IUNIT) 

2084 

4468 

FORMAT (2H  *,T7, ’MR’ ,T13, ’HR:  \A6.T23, ' HR : METERS ' , 

2086 

2T41. 'INPUT:  THR.PHR’ ,T60, ‘ACTUAL:  THR.PHR' ,T79,1H») 

2086 

WRITE(6,3469) 

2087 

4469 

FORMAT (2H  • , T6.3( ■ - 1 ) .112, 20( * ) ,T40, 16( ’ - ') ,169. 

2086 

217( ' - ' ) , T79, 1H») 

2089 

WRITE(6 , 3006) 

2090 

DO  4463  MR-1 ,MRX 

2091 

READ(6, •)  (XRR(N,MR) .N-1,3) , HR (MR) , THRZ , PHRZ 

2092 

MRA (1 ,MR) “0 

2093 

MRA(2,MR)S0 

2094 

IMR(MR)  — 1 

2096 

HAWR(MR)-0. 

2096 

HRQ-HR (MR) 

2097 

HR(MR)=UHITS»HRQ 

2098 

TO-90  -THRZ 

2099 

PQ'PHRZ 

2100 

Xq(l)=SIH(TQ*RPD)*COS(PQ*RPD) 

2101 

Xq(2)=SIN(Tq*RPD)*SIN(pq*RPD) 

2102 

Xq(3)-C0S(Tq*RPD) 

2103 

DO  4481  H=1 ,3 

2104 

4481 

XqR(N)*Xq(l)»VRI(l,N)«Xq(2)«VRT(2.N)«iq(3)*VRT(3,H) 

2106 

THRZ-DPR*BTAN2(SqRTUqR(l) *XqR<l> ♦XqR(2> *XqR(2» . XqR(3) ) 

2106 

PHRZ-DPR*BTAM2(XQR(2) , XQR(l)) 

2107 

WRITE(6,3464)  MR , HRq , HR(MR) , Tq , Pq , THRZ , PHRZ 

2108 

DO  4484  N*1 ,3 

2109 

4484 

VXRR(3,H.MR)«XQR(H) 

2110 

VXRR( 1 , 1 , MR) -COS (THRZ-RPD) »COS (PHRZ*RPD) 

2111 

VXRR ( 1 . 2 . MR) -COS (IHRZ*RPD) *SIN (PHRZ-RPD) 

2112 

VXRRCl ,3,MR)*-SIH(THRZ*RPD) 

2113 

VXRR  (2 . 1 ,  MR)  —SIN  (PHRZ*RPD) 

2114 

VXRR ( 2 , 2 , MR) -COS (PHRZ  *RPD) 

2116 

VXRR(2,3,MR)»0, 

2116 

4463 

CONTINUE 

2117 

WRITE(6,3006) 

2118 

WRITE(6,3006) 

2119 

WRITE(6,3006) 

2120 

VRITE(6 ,3464) 

2121 

3 

VRITE(6 , 3006) 

2122 

WRITE(6,3006) 

2123 

WRITE (6 , 4466)  LABEL(IUNIT) 

2124 

4466 

FORMAT (2H  • ,T7, 'MR ' .114 INPUT  LOCATION  IN  ',A6. 

2126 

2T43,  'ACTUAL  LOCATION  IS  METERS \T79 . ) 

2126 

WRITE(6,3467) 

2127 

WRITE (6. 3006) 

2128 

DO  4473  MR-l.MRX 

2129 

DO  4474  N-1,3 

2130 

4474 

Xq(N)=lRR(N ,MR) 

2131 

DO  4476  N-1.3 

2132 

4476 

IRR(N,MR)«UNITS*(Xq(l)*VRT(l,8)+Xq(2)*VRT(2,R) 

2133 

2«Xq(3)*VBT(3.S))*TR(N) 

2134 

WRITE(6,3476)  MR, (Xq(N) .N-1.3) , (XRR(N.MR) , N-l .3) 

2136 

4473 

CONTINUE 

ai3fl 

WRITE(6 , 3006) 

2137 

WRITE(6,3006) 

3138 

WRITE(6 . 3486) 

3139 

WRITEC6 , 3486) 

3140 

DO  4466  MR-l.KRX 

3141 

READ (6, •)  WMR.WPR 

2143 

WR(MR)*CMPLX(WNR,VPR) 

3143 

WMN=BABS (CMPLI(WMR ,  WPR) ) 

2144 

WPP*DPR*BTAN2(WPR , WMR) 

214S 

WRI7E(6 , 3466)  MR , WMR , WPR , WMM , WPP 

3148 

4466 

CONTINUE 

2147 

•RITE (6, 3006) 

3148 

CO  TO  3000 

3149 

2160 

3490 

CONTINUE 

2161 

Csss 

NS :  COMMAND  ****** 

2163 

cm 

3163 

cttt 

INITIALIZE  SOURCE  DATA. 

2164 

cm 

3166 

LSMP*  FALSE 

2166 

MSX*0 

2167 

MSAT*0 

3168 

NRITE(6.3491) 

3169 

3491 

FORMAT (2H  *,6X,'  THE  SOURCE  DATA  IS 

INITIALIZED.  \T79.1H 

2180 

2.2H  * , 6X . ’  NO  SOURCES  ARE  PRESENTLY 

IN  THE  PROBLEM.  ' 

2161 

3 , T79 , 1H‘ ) 

2182 

GO  TO  3000 

3163 

Csss: 

:  =  = 

2184 

3496 

CONTINUE 

3186 

c=== 

NR  COMMAND  «««■■ 

2166 

cm 

2167 

cm 

INITIALIZE  RECEIVER  DATA 

2168 

cm 

2169 

LRCVR*  FALSE 

2170 

LRMP*. FALSE 

3171 

MRX=0 

2172 

VRITEC6 , 3498) 

3173 

3496 

FORMAT (2H  ‘.BX.'  THE  RECEIVER  DATA 

IS  INITIALIZED.  ' 

2174 

2.T79, 1H*/2H  *,6X.'  HO  RECEIVERS  ARE  PRESENTLY  IN  THE' 

2176 

3/  PROBLEM.  '  ,T79, 1H*) 

2176 

CO  TO  3000 

2177 

Csssa 

ss 

2178 

3600 

CONTINUE 

2179 

c«*= 

LP :  COMMAND  ****** 

2180 

cut 

2181 

cttt 

L WRITE* TRUE  IF  LINE  PRINTER  OUTPUT 

OF  DATA  IS  DESIRED 

2182 

cttt 

2183 

READC6,*)  L WRITE 

2184 

IF(  NOT  LWRITE)  WRITE(6 , 6606) 

3186 

6606 

FORMAT (2H  *,8X,'N0  LINE  PRINTER  OUTPUT ‘ , T79 , 1H») 

3186 

IF (NOT. LWRITE)  CO  TO  3000 

3187 

WRITE(8,3601) 

2188 

3601 

FORMAT (2H  *,6X,'  DATA  WILL  BE  OUTPUT  ON  LINE  PRINTER  III' 

2189 

2T79.1H*) 

2190 

00  TO  3000 

3191 

(Jaasi 

urn 

2192 

3660 

CONTINUE 

2193 

C*s* 

VP:  CO  AW  A TO  ****** 

2194 

cttt 

2196 

cttt 

VOLUNETRIC  DUMP  FOR  PLOTS 

2196 

cttt 

2197 

READ (6,*)  LVPLT 

2198 

IF ( . NOT . LVPLT)  WRITEC6.6606) 

2199 

IF(. HOT  LVPLT)  00  TO  3000 
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CO  TO  36S1 


2300 

2201  c****** 

2202  3600  CONTINUE 

2203  C***  PP:  COMMAND  ****** 

2204  CIM 

2206  CIM  LPLT* TRUE  IF  PEN  PLOTTER  OUTPUT  IS  DESIRED 

2200  C*t* 

2207  READ (6,*)  LPLT 

2208  IF{. NOT  LPLT)  WBITE(0,00O0) 

2209  6800  F0RMAK2H  *,6X, 'NO  PEN  PLOT  DESIRED' .T79.1H*) 

2210  IF(. HOT. LPLT)  CO  TO  3000 

2211  C$11 

2212  CM*  IF  LPLT-TRUE  READ  IN  DIMENSIONS 

2213  CIM 

2214  CIM  LPPREC  *  TRUE  IMPLIES  RECTANGULAR  PLOT 

2216  CIM  PPXL  *  LENGTH  OF  X-AXIS  (ANCLE  AXIS) 

2216  CIM  PPYL  *  LENGTH  OF  T-AXIS  (DB  AXIS) 

2217  CIM 

2218  CIM  LPPREC  *  FALSE  IMPLIES  POLAR  PLOT 

2219  CM!  PPXL  *  ANGULAR  POSITION  OF  X-AXIS 

2220  CIM  PPTL  *  RADIUS  OF  GRID 

2221  CIM 

2222  3661  READ (6,*)  LPPREC, PPXL, PPTL 

2223  CIM 

2224  CIM  PPXB  =  BEGINNING  VALUE  OF  X-AXIS 

2226  CIM  PPXE  =  END  VALUE  OF  X-AXIS 

2220  CIM  PPXS  *  STEP  SIZE  OF  X-AXIS  GRID  MARKS 

2227  CIM 

2228  READ (6,*)  PPXB, PPXE. PPXS 

2229  CIM 

2230  cm  PPTB  *  BEGINNING  VALUE  OF  T-AXIS 

2231  CIM  PFTE  *  END  VALUE  OF  T-AXIS 

2232  cm  PPYS  *  STEP  SIZE  OF  T-AXIS  GRID  MARKS 

2233  CMI 

3234  READC6, *)  PPTB, PPTE, PPYS 

2236  WRITE(6,3802) 

2230  3002  FORMAT (2H  *,6X,'DATA  WILL  BE  OUTPUT  FOR  A  PLOT  III' 

2237  2.T79, 1H*) 

2238  WRITE(8,3008) 

2239  WRITEC6 , 3003)  LPPREC, PPXL, PPTL 

2240  3003  F0RNAI(2H  *,6X,  ’  LPPREC*  • .L2.6X, 'PPXL*  ’,F10.6.6X, 

2341  2'PPYL*  '.F10  6.T79.1H*) 

2242  VRITE(0 , 3604)  PPXB . PPXE , PPXS 

2243  3004  FORMAT (2H  *,6X, '  PPXB«  ' , F10  6, 6X , 'PPXE*  \F10.6,6X, 

3244  2'PPXS=  ' ,F10.6,T79,1H*) 

2246  VRIT£(6 , 3606)  PPTB, PPTE, PPTS 

2240  3006  FORMAT (2H  *,6X,'  PPTB*  ' .F10.6.6X, 'PPTE*  \F10.6,6X, 

2247  2'PPTS*  ' ,F10 . 6, T79 , 1H*) 

2248  IF (LPLT)  GO  TO  3000 

2249  VRITE(6,3006) 

2360  CIM 

2261  CIM  IVTTP*TYPE  OF  RESULTS  OUTPUT 

3362  CMI  IVTTP-1  ELECTRIC  FIELD  OUTPUT 

2263  CIM  IVTYP*2  MAGNETIC  FIELD  OUTPUT 

2264  CIM  IVTYP-3  BOTH  ELECTRIC  AND  MAGNETIC  FIELDS  OUTPUT 

3266  CIM  COUPLING  IS  OUTPUT  IF  RECEIVER  IS  DEFINED  FOR  ART  IVTTP 

3266  CIM 

2267  CMI  IVPOL«POLARIZATION  OF  RESULTS  OUTPUT 

2268  CMI  IVP0L*1 ,2,3  THEN  R, THETA, PHI  OR  X,T,Z  RESPECTIVELY  IS  OUTPUT 

2269  cm  IVPOL-4  THEN  R-THETA  OR  X-T  ARE  OUTPUT 

2300  CIM  IVP0L*6  THEN  R-PHI  OR  X-Z  ARE  OUTPUT 

2201  CIM  IVPOL-0  THEN  THETA-PHI  OR  T-Z  ARE  OUTPUT 

2202  CMI  IVP0L*7  THEN  R,  THETA  AND  PHI  OR  X,  T  AND  Z  ARE  OUTPUT 

2203  Cltt  COUPLING  HAS  NO  POLARIZATION 
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3304  CIM 

336B  READ(6,«)  IVTTP.IVPOL 

3300  VR1T£(0 , 3666)  IVTTP.IVPOL 

3307  3065  FORMAT (3H  *,6X,'  IVTYP=  ‘  13, 1  IVPOL*  '  .I3.T79.1H*) 

3308  CO  TO  3000 

3309  C*— «• 

3370  3700  CONTINUE 

3371  CP:  COMMAND  ■**«== 

3373  CMt 

3373  CMt  INFINITE  GROUND  PLANE  EFFECT  INCLUDED. 

3374  CtM 

3376  LCR1ID= .  TRUE . 

3370  DO  3703  N=l,3 

3377  IX(N, 1 ,MPDX)*1  .E6*  (VRT(1  ,N)  «VRT(2 ,  N)  )-*TR(N) 

3378  XI(N,2,MPDX)=l.E6*(-VRTd,N)«VRT(2,H))->TR(N) 

3379  XX(N,3,MPDX)*=l.E6*(-VRTd,N)-VRT(2.N))«TR(N) 

3380  3703  XX(N ,4 ,MPDX)=1 .E6* <VRT<1 , N)-VRT(2, H)) <TR(N) 

3381  CtM 

3383  Cttt  LSLAB*  0  IMPLIES  METAL  PLATE,  AND 

3383  Cttt  *-3  IMPLIES  DIELECTRIC  HALF  SPACE 

3384  Cttt 

3386  Cttt  NOTE:  IF  DIELECTRIC  COVERED,  ONE  MUST  READ  DIELECTRIC  DATA. 

3380  Cttt 

3387  READ (6 , *)  LSLAB(MPDX) 

3388  IF (LSLAB(MPDX) . EQ  0)  »R1TE(0 , 3706) 

3289  3700  F0RNAT(2H  •,6X, 'PERFECTLY  CONDUCTING ’ ,T79, 1H0 

2290  IFCLSLAB(MPDX) . NE.O)  WRITE(0 , 3707) 

3291  3707  F0RMAT(2H  * , 6X , ‘SEMI -INFINITELY  THICK  DIELECTRIC T79, 1H‘) 

2292  VRITEC8 , 3701) 

3293  3701  FORMAT (2H  », 6X , ’INFINITE  GROUND  PLANE  INSERTED  IN', 

2294  3 '  STRUCTURE  M!‘,T79.1H*) 

2296  WRITEC0.3OO0) 

2290  WRITE(0,37O3)  (TR(N) , N»1 ,3) 

2297  3703  F0RMAT(2H  *,6X,'THE  ORIGIN  IS  AT  ' .F12.0. '. ' .F12.0 

3298  3.WF12  0,'  METERS'  ,T79,1H*) 

2399  VRITECO , 3000) 

2300  VRITE(0 , 3704)  (VRTC3 , N) ,N=1 ,3) 

3301  3704  F0RMAT(2H  *,6X,'THE  NORMAL  IS  ' ,F12  8, ’ , ’ ,F12  0, ' , ’ 

3303  2.F12  8.T79.1H*) 

3303  IFCLSLAB(MPDX) ,EQ  0)  GO  TO  3000 

3304  NSLAB(1)«1 

2306  DSLAB ( 1 , MPDX ) *0 . 

2300  LSLAB(MPDI)=-3 

3307  Cttt 

2308  Cttt  ERSLABd  ,MPDX)=R£LATIVE  DIELECTRIC  CONSTANT 

2309  Cttt 

3310  Cttt  TESLABd  ,MPDX)'DIELECTRIC  LOSS  TANGENT 

3311  Cttt 

3312  Cttt  URSLAB(l.MPDX) •RELATIVE  PERMEABILITY  CONSTANT 

3313  Cttt 

3314  Cttt  TMSLABd  ,MPDX)*PERMEABILITT  LOSS  TANGENT 

2316  Cttt 

3310  READ (6 , *)  ERSLABCl ,MPDX) , TESLABCl ,MPDX) 

2317  2,URSLABd,MPDX),TMSLABd,MPDX) 

2318  VRITE(8,3OO0) 

3319  VRITE(0,37O8) 

2320  3708  FORMAT (2H  • ,6X , 'DIELECTRIC' ,3X , 'LOSS ', 4X , 

2331  2'PERMITIVITY‘  ,3X,  'LOSS'  ,T79,1H*,/, 

3332  32H  •, 01, 'CONSTANT' ,3X, •TANGENT' . 

2333  44X , ' CONSTANT ' , 31 , ' TANGENT ' , T79 , 1H* , / , 

2324  62H  » , 6X . ' . \2X,' - '. 

2326  02X , '  . . '  ,21, ' . ’,T79,1H*) 

3330  VRITE(0,37O9)  ERSLABd  ,MPDI)  , TESLABCl , MPDX) 

2327  3,URSLAB(1  ,MPDX) , TMSLABd  ,MPDX) 
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2328 

3709 

FORMA T(2H  •  ,6X ,  F10 . 4 , 2X , F7 . 4 , 2X , Fll  4,21, 

2329 

2F7.4.T79.1H*) 

2330 

CO  10  3000 

2331 

Ccxci 

ESS 

2332 

3760 

CONTINUE 

2333 

C=== 

NO :  COMMAND  ====== 

2334 

cm 

233E 

CM$ 

INITIALIZE  GROUND  PLANE  DATA. 

2338 

cm 

2337 

LCRND=.  FALSE. 

2338 

VRITE(6 ,3761) 

2339 

3761 

FORMAT (2H  «.6X.'  GROUND  PLANE  DATA  IS  INITIALIZED  *.179, 1H */ 

2340 

2,2H  » , 6X , '  NO  GROUND  PLANE  IS  PRESENTLY  IN  THE  PROBLEM.  ’ 

2341 

3.T79.1H*) 

2342 

GO  TO  3000 

2343 

c===- 

===== 

2344 

3900 

CONTINUE 

234B 

o*= 

RT :  COMMAND 

2348 

cm 

2347 

cm 

TR(N)=LINEAR  TRANSLATION  OF  COORDINATES  FROM  THE  FIXED 

2348 

cm 

COORDINATES  WHICH  IS  ORIGINALLY  SET  UP  BY  OPERATOR, 

2349 

cm 

2360 

READ(E , •)  (TR(N) ,N=1 ,3) 

2361 

WRITEC6 , 3901)  LABEL  (I  UN  IT)  .  (TROD  ,11=1,3) 

2362 

3901 

F0RMAT(2H  * ,6X TRANSLATION  IN  ‘.Ae.':  TR ( 1 ) = ' , F8 . 3 , 

2363 

2'  TR(2)= ’ ,F8  3, *  TR(3)= • . F8 . 3 , T79, 1H») 

2364 

DO  3920  N=1 ,3 

2366 

3920 

TR  (11)  =TR(H) ‘UNITS 

2368 

WRITE(6 , 3006) 

2367 

IF ( IU11 1 T .  HE.  1)  WRITE(6 , 3901)  LABEL(l)  ,  (TROD  ,H=1 ,3) 

2368 

IFdUHIT  HE  1)  WRITE(8 , 3006) 

2369 

WRITE(6 , 3008) 

2360 

cm 

2381 

cm 

THZP ,PHZP=ORIENTATION  OF  THE  VRT(3,H)  AXIS  RELATIVE  TO  THE 

2362 

cm 

FIXED  COORDINATE  SYSTEM. 

2383 

cm 

2384 

cm 

THXP ,PHXP=ORIENTATTON  OF  THE  VRT(l.N)  AXIS  RELATIVE  TO  THE 

2366 

cm 

FIXED  COORDINATE  SYSTEM. 

2366 

Cf  It 

2367 

READ(5,»)  THZP, PHZP, THXP, PHXP 

2368 

VRT(3, 1)=SIH(THZP*RPD)*C0S(PHZP*RPD) 

2369 

VRT(3,2)=SIN(THZP*RPD)*SIN(PHZP»RPD) 

2370 

VRT(3,3)=C0S(THZP*RPD) 

2371 

VRT(1,1)=SI1J(THXP*RPD)*C0S(PHXP*RPD) 

2372 

VRT(1,2)=SIN(THXP*RPD)*SIN(PHXP«RPD) 

2373 

VRT(1,3)=C0S(THXP*RPD) 

2374 

CM  ! 

INSURE  VRT(l.H)  IS  PERPENDICULAR  TO  VRI(3,H) 

2376 

DZX=VRT(3.1)«VRT(1, 1)«VRT(3,2)*VRT(1 ,2)‘VRT(3,3)*VRT(1 ,3) 

2376 

IF (ABS(DZX)  CTO  1)  WRITE(6,3903) 

2377 

3903 

FORMAT ( '  *•*  PROGRAM  ABORTS  IN  ROTATE  SECTION  IN  THAT  THE', 

2378 

2'  COORDINATES  ARE  NOT  ORTHOGONAL! 1 t  ***') 

2379 

IF (ABS(DZX)  CT .01)  STOP 

2380 

VRT(1 , 1)=VRT(1 , 1) -VRT(3 , 1) *DZX 

2381 

VRT (1,2) *VRT (1,2) -VRT (3 , 2) *DZX 

2382 

VRT (1 ,3)*VRT(1 ,3) -VRT (3 , 3) *DZX 

2383 

D0T=VRT(1 , 1) *VRT(1 , 1) «VRT(1 , 2) *VRT(1 , 2) <VRT(1 , 3)*VRT(1 ,3) 

2384 

D0T=S5RT (DOT) 

2386 

VRT(1 , 1)=VRT(1 ,  D/DOT 

2386 

VRT(1 ,2)*VRT(1 ,2) /DOT 

2387 

VRT(1 ,3)*VRT(1 , 3) /DOT 

2388 

VRT (2 , 1) =VRT (3 , 2) *VRT (1,3) - VRT (3, 3)* VRT (1 ,2) 

2389 

VRT(2,2)*7RT(3,3)«VRT(1,1)-VRT(3,1)*VRT(1,3) 

2390 

VRT (2, 3)* VRT (3,1)*VRT(1 ,2) -VRT (3 ,2) *VRT (1 , 1) 

2391 

WRITE(6,3931) 
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2392  3931  FORMAT (2H  *,6X,'THE  FOLLOWING  ROTATIONS  ARE  USED  FOR  ALL', 

2393  2'  SUBSEQUENT  INPUTS T79 , 1H>) 

2394  DO  3932  H 1=1 . 3 

2396  WRITE(6,3008) 

2396  3932  WRITE(8 , 3933)  (HI , NJ ,  VRTOil , NJ) , NJ=1 ,3) 

2397  3933  FORMAT (2H  * , 1X,3(2X, ' VRT( ' , II , 1 . • . II . 1 )=’ ,F9.6) .179, iH*) 

2396  GO  TO  3000 

2399  C*==«== 

2400  4000  CONTINUE 

2401  C*==  CG:  AND  CC:  COMMAND  ====== 

2402  CtM 

2403  Cttt  CYLINDER  GEOMETRY  INPUT 

2404  Cttt 

2406  LCYL=  TRUE. 

2406  MCX=MCX+i 

2407  MC=MCX 

2408  IF(MCX  GT.MCDX)  WRITE(6,6311)  MCX 

2409  6311  FORMAT (’  »*•**  NUMBER  OF  CYLINDERS1  13 PROGRAM ’ , 

2410  2'  ABORTS  SINCE  MAX.  CYLINDER  DIMENSION  IS  EXCEEDED. 

2411  IF (MCX. GT.MCDX)  STOP 

2412  Cttt 

2413  Cttt  XCL(H ,MC)=XYZ  LOCATION  OF  THE  ORIGIN  OF  THE  MC-TH  CYLINDER 

2414  Cttt 

2416  READ (6,*)  (XCL(l) ,MC) . N=1 . 3) 

2416  DO  6301  11=1,3 

2417  6301  XQ(N) =XCL(N ,MC) 

2418  DO  6302  11=1,3 

2419  6302  XCL0l.MC)=UllITS»(Xq(l)*VRT(l,l!)«XQ(2)*VRT(2,N) 

2420  2*XQ  (3)  *  VRT  (3 , 11 ) )  *  TR  ( N) 

2421  YfRITE<6,6308)  LABEL(IUNIT) 

2422  6308  FORMAT (2H  * , T6 , 'CYLINDER# ' , T17 , ' INPUT  LOCATION  IN  ',A6 

2423  2, T46, 'ACTUAL  LOCATION  III  METERS ',  T79, 1H*) 

2424  WRITE(6 , 3422) 

2426  WRITE(6 , 3006) 

2426  WRITEC6 , 3426)  MC . (XQ(H) ,N=1 ,3) , (XCL(N ,MC) SN=1 ,3) 

2427  WRITE(6 , 3006) 

2428  WRITEC6 . 3006) 

2429  Cttt 

2430  Cttt  TCLZ ,PCLZ= ORIENTATION  OF  THE  CYLINDER  AXIS 

2431  Cttt 

2432  Cttt  TCLX ,PCLX=0RIENTATI011  OF  THE  CYLINDER'S  X-AXIS 

2433  Cttt 

2434  READ (6,*)  TCLZ, PCLZ, TCLX ,PCLX 

2436  XQ (1)=SIN(TCLZ*RPD) * COS (PCLZ *RPD) 

2436  IQ(2)=SIN(TCLZ‘RPD)*SIH(PCLZ*RPD) 

2437  XQ(3)«C0S(TCLZ*RPD) 

2438  DO  6303  11  =  1,3 

2439  6303  VCL(3,H,MC)*XQ(1)»VRT(1 ,N)«XQ(2)*VRT(2,N)*XQ(3)*VRT(3,N) 

2440  XQ(1)=SIH(TCLX*RPD)*C0S(PCLX*RPD) 

2441  XQ  (2)*SI1I(TCLX«RPD)  *SIN  (PCLX'RPD) 

2442  XQ(3)=C0S(TCLX*RPD) 

2443  DO  6304  N=l,3 

2444  6304  VCU 1 , N ,MC) «XQ(1) =VRT(1 , N) «XQ (2) *VRT(2, N) *XQ (3) *VRT (3, N) 

2446  DZX*VCL(1,1,MC)«VCL(3,1,MC)*VCL(1,2,MC)*VCL(3,2,MC) 

2446  2«VCL(1,3,MC)*VCL(3,3,MC) 

2447  IF(ABS(DZX)  GT  0.1)  WRITE(6 , 6306) 

2448  6306  FORMA T( '  *»*  PROGRAM  ABORTS  THE  COORDINATES  ARE  NOT', 

2449  2'  ORTHOGONAL!!!  •*•') 

2460  IF(ABS(DZX)  GT  0  1)  STOP 

2461  VCL ( 1 , 1 , MC) *VCL ( 1 , 1 , MC) - VCL (3 , 1 , MC) • DZX 

2462  VCL ( 1 , 2 , MC) *VCL ( 1 , 2 , MC) - VCL (3 , 2 , MC) ‘DZX 

2463  VCL(1 ,3 ,MC)*VCL(1 , 3 ,HC) -VCL(3, 3 ,NC) *DZX 

2464  D0T=VCL(1 , 1 ,MC) *VCL(1 , 1 ,MC) ‘VCL(1 , 2 ,MC) *VCL(1 , 2 ,MC) 

2465  2*VCL(1 , 3 ,MC) *VCL( 1 , 3 ,MC) 
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3464 

DOT'SQRT (DOT) 

3467 

VCL(1 , 1 ,MC)*VCL(1 , 1 ,MC) /DOT 

3466 

VCL(1,3,MC)»VCL(1,3.MC)/D0T 

3460 

VCL(1.3.MC)«VCL(1.3.MC)/D0T 

3440 

VCL(3 , 1 ,MC)»VCl(3 ,3 ,NC) *VCL(1 . 3 , MC) -VCL(3 , 3  ,MC) *VCL(1 . 3 ,MC) 

3461 

VCL(3,3,MC)«VCL(3,3,MC)*VCL(1,1,NC) -VCL(3,1,MC)  *VCL(1,3,MC) 

3463 

VCL (3 . 3 ,MC) -VCL(3 ,1,MC) *VCL ( 1 . 3 . NO -VCL (3 . 3 ,HC) » VCL (1 , 1 . MC) 

3463 

miTE(6,6300) 

3464 

6300 

F0RMAT(2H  *,81. 'THE  F0LL0WINC  CYLINDER  ALIGNMENT  IS  USED: ' 

3466 

3.170, 1H») 

3466 

DO  6306  Rl*l,3 

3467 

WHITE (6, 3008) 

3468 

6306 

WHITE (6, 6307)  (HI , HJ. VCL(N1 , HJ .NO , NJ«1 , 3) 

3460 

6307 

FORMAT  (3H  *.11,3(31, 'VCLC.Il, .11. ')■' ,F0. 6)  .T70.1H*) 

3470 

cm 

3471 

cm 

AC-RADIUS  OF  ELLIPSE  OH  1  CYLINDER  AIIS 

3473 

cm 

BC-RADIUS  OF  ELLIPSE  OH  T  CYLINDER  AIIS 

3473 

CM! 

3474 

cm 

ZCN,THTN*MOST  NEGATIVE  EHDCAP'S  Z  COMPONENT 

3476 

cm 

AND  ANCLE  OF  SURFACE  WITH  THE  CYLINDER  AIIS 

3476 

CM* 

ZCP,THTP«NOSI  POSITIVE  EHDCAP'S  Z  COMPONENT 

3477 

cm 

AND  ANGLE  OF  SURFACE  WITH  THE  CYLINDER  AIIS 

3478 

cm 

3470 

IF(IRO)  EQ  ITUO))  CO  TO  6400 

3480 

NEC(MC)«3 

3481 

READ(6, •)  AC(l.MC).BC(l,MO 

3483 

READ(6,»)  ZCN , THTN , ZCP , THTP 

3483 

AA0«AC(1,MC} 

3484 

BB0*BC(1,MC) 

3486 

AC(l.MO>AC(l.MO*UHITS 

3486 

BC(1 ,MC)«BC(1 .MC) 'UNITS 

3487 

AC(3,MC)*AC(1.MC) 

3488 

BC(3,MC)«BC(1,MC) 

3480 

ZC(3.MC)*ZCH*UNITS 

3400 

TCR (3 , MC) *THTH*RPD 

3401 

ZC(1.MC)«ZCP*0HITS 

3403 

TCR(1 ,MC)»THTP*RPD 

3403 

WRITE(6,3006) 

3404 

WRITE(6,3006) 

3406 

WRITE(6,6310)  LABELdUNIT)  ,AAO 

3406 

6310 

FORMAT (3H  *.61. '1  AIIS  DIMENSION  IN  ’. 

3407 

3A6, .F8.3.T7Q.1H*) 

3408 

WRITE(6,3006) 

3400 

IFdONIT  HE  l)  WRITE(6,8310)  LABEL(l)  ,AC(1,MC) 

3600 

IFdUHIT  NE.l)  WRITE(6,3008) 

3601 

WRITE (6. 3006) 

3603 

WRITE(6 ,6320)  LABEL(IUNIT) ,BBO 

3603 

6330 

FORMAT (3H  *,61. 'T  AIIS  DIMENSION  IN 

3604 

3A6, '»' .F8.3,T79,1H*) 

3606 

WRITE (6,3006) 

3606 

IFdUHIT. NE.l)  WRITE(6,6330)  LABEl(l)  .BC(l.MC) 

3607 

IFdUHIT. NE.l)  WRITE(6,3006) 

3608 

WRITE(6,3006) 

3600 

WRITE(6,6330)  LABELdUNIT) , ZCN 

3610 

6330 

FORMAT (3H  *.61. 'MOST  NEGATIVE  END  CAP  Z  COMPONENT  IN 

3611 

3A6, ,F8.S,T79,1H*) 

3613 

WRITE (6, 3006) 

*613 

IFdUHIT. NE.l)  WRITE(6,6330)  LABEL(l) ,ZC(3,MC) 

3614 

IFdUHIT. NE.l)  WRITE(e.SOOe) 

3616 

WRITE(6,6340)  THTN 

3616 

6340 

FORMAT (2B  »,61,*AN0LE  OF  ISO.  END  CAP  SURFACE  WITH  BEG.’. 

3617 

3'  CTL.  AIIS  ' , '■' .F8.3.T79, 1H*) 

3618 

WRITE(6,3006) 

3610 

WRITE (6. 3006) 
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3530 

33176(6,6360)  LABEL(IUNIT) ,ZCP 

3531 

6360 

FORMAT (3H  *, 61, 'MOST  POSITIVE  END  CAP  Z  COMPONENT  IN 

3633 

3A6, ■*' ,F8.3,T70,1H*) 

3533 

«3ITE(6.3006> 

3634 

IF(IUNIT.NE.l)  WRITE(6,6360)  LABEL(l)  .ZCU.MC) 

3635 

IFdUHIT  NE.  1)  V3ITE(6 , 3006) 

3635 

WRIIE(6,6360)  IHTP 

3637 

6360 

FORMAT (3H  •.6X,' ANGLE  OF  POS.  END  CAP  SURFACE  WITH  PCS.', 

3636 

3*  CTL.  AXIS  V«\F8.3,I70,1H*) 

363S 

CO  TO  3000 

3630 

6400 

CONTINUE 

3631 

READ(6.*)  NEC(MC) 

3633 

IF(NEC(MC) . GT.NCDI)  STOP 

3633 

NECX*NEC(MC) 

3634 

DO  6410  NC-l.NECX 

3636 

READ(6, *)  AC(NC.MC) ,BC(HC,MC) .ZCCNC.MC) 

3636 

AAO-AC(NC.MC) 

3637 

BBO«BC(HC,MC) 

3638 

ZCN«ZC(NC,MC) 

3630 

AC (NC , MC) «AC (NC , MC) 'UNITS 

3640 

BC(NC,MC)*BC(NC,MC) ‘UNITS 

3641 

ZC (NC . NC) «ZC (NC . MC) ‘UNITS 

3643 

TCR(NC,MC)*0.6*PI 

3643 

WRITE (6 , 3306)  MC , NC , AAO , BBO , ZCH , AC (NC , MC) , BC (HC , MC) , ZC (NC 

3644 

6410 

CONTINUE 

3646 

00  TO  3000 

3646 

C*6«l 

3647 

4060 

CONTINUE 

3648 

Csas 

HC:  C0M4AND  mmmmmm 

3640 

CM* 

3660 

CM* 

INITIALIZE  CYLINDER  DATA. 

3661 

c«*t 

3663 

LCTL-. FALSE 

3663 

NCX«0 

3664 

WRIYE(«,4061> 

3666 

4061 

FORMAT (3H  *,6X.'  CYLINDER  DATA  IS  INITIALIZED.  \T70.1H»/ 

3666 

3.2H  »,6X, ’  NO  CYLINDER  IS  PRESENTLY  IN  THE  PROBLEM.  * 

3667 

3.T70.1H*) 

3668 

CO  TO  3000 

3660 

C*m 

m 

3660 

007 

CONTINUE 

3661 

Qu* 

EH:  COMMAND  ■«■«■* 

3663 

c*M 

3663 

CM* 

END  PROGRAM 

3664 

CM* 

3666 

WRITE(6,3006) 

3666 

WRITE (6. 3000) 

3667 

WRITE(6,3006) 

3668 

STOP 

3660 

c— ■ 

iii 

3670 

3300 

CONTINUE 

3671 

Cmmm 

XI):  COMMAND  — — 

3673 

CM* 

3673 

c*M 

EXECUTE  PROGRAM 

3674 

CM* 

3676 

WRITE(6,3006) 

3676 

WRITE(6,3006) 

3677 

cm 

3671 

cm 

3.  INITIALIZATION  SECTION 

3670 

cm 

3660 

BL« . 3007025/FRQG 

3631 

WR-TPI/WL 

3633 

WRITE(6,3006) 

3633 

ItIMSI 
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2684 

cm 

CROUND  PUNE  IS  ANOTHER  PLATE  IN  SOLUTION. 

2586 

IF(LGRND)  MPXR*MPX« 1 

2686 

IF (MPXR . OT . MPDX)  VR1TE(6,901)  NPXR 

2687 

IF(MPXR.GT.MPDX)  STOP 

2588 

IF(.NOT.LGRND)  GO  TO  3801 

2688 

LPLA« .  TRUE . 

2590 

HEP (MPXR) *4 

2691 

DO  3802  1*1,4 

2692 

DO  3802  H*l,3 

2693 

3602 

XX (N , I , MPXR) *XX (N , I , MPDX) 

2694 

LSLAB (MPXR) *LSLAB(MPDX) 

2696 

DSLAB ( 1 , MPXR) *DSLAB ( 1 , MPDX) 

2696 

ERSLAB (1 , MPXR) *ERSLAB(1 .MPDX) 

2697 

TESLAB(1 , MPXR) -TESLABCl . MPDX) 

2698 

URSLAB(1 , MPXR) *URSLAB(1 , MPDX) 

2699 

TMSLAB  ( 1 ,  NPXR)  *TMSLAB  ( 1 .  MPDX) 

2600 

3801 

CONTINUE 

2601 

IF (MPXR. EQ. 0)  LPLA*. FALSE. 

2602 

IF(LPLA)  CALL  GEOM 

2603 

cm 

MAKE  PATTERN  INFORMATION  MATCH  WITH  SHADOW  CODE 

2604 

IF(IVPN.GT.O)  THEN 

2606 

NVFT-HPV 

2606 

NVFP=HPH 

2607 

ELSE 

2008 

NVFT-HPH 

2609 

NVFP*HPV 

2610 

END  IF 

2611 

COLS*HVFT 

2612 

THEI1*TTS»RPD 

2613 

RESTH*TYI*RPD 

2614 

THET2-THET1* (COLS-1) *RESTH 

2616 

ROWS*HVFP 

2616 

PH1*PZS«RPD 

2617 

RESPH*PZI*RPD 

2618 

PH2-PH1* (ROWS-1) *RESPH 

2619 

cm 

MAKE  SOURCE  INFORMATION  FOR  THE  FIRST  ONE  MATCH  WITH 

2620 

cm 

SHADOW  CODE 

2621 

DO  3806  N*1 ,3 

2622 

3606 

AnTEmi(H)*XSS(ll,l) 

2623 

RETURN 

2624 

END 
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FUNCTION  BABS 


This  is  function  BABS.  It  is  used  to  obtain  complex  absolute  values  without  runtime 


numerical 

errors. 

0001 

0003 

p _ 

V 

FUNCTION  BiBS(Z) 

0003 

cm 

0004 

cm 

THIS  ROUTINE  IS  USED  TO  GIVE  COMPLEX  ABSOLUTE  VALUES. 

0006 

cm 

USED  RATHER  THAN  STANDARD  ROUTINES  TO  AVOID  EXECUTION 

0000 

cm 

ERRORS. 

0007 

cm 

0008 

COMPLEX  Z 

0000 

COmON/LIMII/SML  ,SMLR,  SMLT  ,BIO 

0010 

X«ABS(REAL(Z)) 

0011 

T*ABS(AIMAG(Z)) 

0013 

IF(X.LT. SMLT. AND. T. LI. SMLT)  GO  TO  10 

0013 

BABS«CABS(Z) 

0014 

RETURN 

0016 

10 

BABS-SMLT 

0016 

RETURN 

0017 

END 
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BLOCK  DATA 


This  is  contant  block  data. 


0003 

BLOCK  D AT* 

0003 

cm 

0004 

cm 

LOAD  C0M40ULT  USED  DATA  INTO  C0M40N  AREA . 

0006 

cm 

0000 

COMPLEX  CJ.CPI4 

0007 

C01W0N/PIS/PI ,TPI .DPR.RPD 

0008 

C0M40N/C0MP/CJ.CPI4 

0000 

COMUM/LIMIT/SML ,  SMLR ,  SMLT  .BIO 

0010 

DATA  PI . TP I , DPR . RPD/3 . 14160366, « . 3831863 1,67. 3067706 . 

0011 

30.0174633036/ 

0013 

DATA  CJ , CPI4/(0 . . 1 . ) , ( . 70710878 , - . 70710878)/ 

0013 

DATA  SML, SMLR, SMLT, BIG/1 . E-3,1 .E'6,1 .E-10,1 .£30/ 

0014 

END 
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FUNCTION  BTAN2 


This  function  is  identical  to  the  intrinsic  fortran  ATAN2  function,  except  it  avoids 
runtime  numerical  errors. 


0001  c - 

oooa  rwcTiM  simn.i) 

0003  Cl  1 I 

0004  cm  IBIS  lOUTIKE  IS  0SED  TO  COMPOTE  THE  UCT4RGEMT.  IT  IS 
0006  cm  SIMILAI  TO  ATAH2  EXCEPT  IT  AVOIDS  THE  HOI  TIME  EUOftS. 

oooo  cm 

000T  COMttX/PIS/PI , TPI , DP& , 3PD 

000$  COMWI/LIMIT/SNL.SMLB.SMLT.BIO 

0000  ir(ABS(I).OT.SMLT)  00  TO  60 

0010  irOBS(T).GI.SMLT)  GO  TO  10 

0011  814X3*0 

0013  iiini 

0013  10  BTAH2S0.6*PI 

0014  IT(T  LT  O  )  BTAH2- BTAH2 

0016  urmH 

0010  60  BT4N2*4T4H3(T.l) 

0017  BETOBN 

0018  EDO 
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SUBROUTINE  CAPINT 


This  routine  is  used  to  determine  if  a  ray  strikes  an  elliptic  cylinder  endcap. 


0001 

0003 

C— 

SUBROUTINE  CAPINT (IIS, D,DHIT,MD,LHIT,MH) 

0003 

cm 

0004 

cm 

DOES  RAT  HIT  ENDCAP? 

0006 

cm 

0000 

INCLUDE  'SHACOM.FOR' 

0173 

DIMENSION  I 18(3) ,D(3) ,XT(3) ,XISC(3) ,DC(3) 

0173 

LOCICAL  LHIT , LDEBUG , LTEST , LWARH 

0174 

COWOH/TEST/LDEBUG ,  LTEST ,  LWARH 

0176 

C0M40N/LIMI T/SNL ,  SNU ,  SMLT ,  BIG 

0170 

COMMON /WAVE/VK ,  WL 

0177 

LHIT*. FALSE. 

0178 

DHII-O. 

0170 

cm 

STEP  THROUGH  CYLINDERS 

0180 

DO  40  MCC-l.MCX 

0181 

IF(MH.LT. 0  .AND.  IABS(MH) .NE  MCC)  GO  TO  40 

0183 

IF(MH.GT.O  .AND.  MH.EQ.MCC)  GO  TO  40 

0183 

CALL  CTLROT (D , DC , 1 , MCC) 

0184 

CALL  CTLROT (X1S , X1SC , 3 ,MCC) 

0186 

cm 

STEP  THRU  ENDCAPS 

0188 

NECX-HEC(MCC) 

0187 

DO  40  MH>1,NECX 

0188 

IFCMD.LT. 0  .AND.  IABS(MD)  .HE. Mil)  GO  TO  40 

0180 

IF(MD.GT.O  AND.  MD.Eq.MN)  GO  TO  40 

0100 

A«AC(MN,MCC) 

0101 

B-BC(MN.MCC) 

0103 

CNC*COS (ICR (MN , MCC) ) 

0103 

SHC'SIN (TCR(MN , MCC) ) 

0104 

AH— XISC(l)  •CUC*  (X  ISC  (3)  -ZC(MN.NCC)  )  *SHC 

0106 

DH— CNC*DC(  1 )  *SNC»DC  (3) 

0108 

cm 

DOES  RAT  HIT  ENDCAP  PLANE? 

0107 

IF(AN*DN.GE.O.)  GO  TO  40 

0108 

cm 

COMPUTE  POINT  XT,  WHERE  RAT  HITS  ENDCAP  PLANE 

0100 

DO  10  N-1,3 

0300 

10 

XT (H) -XISC (H) -AN*DC (N) /DN 

0301 

RH0T«XT(1)«XT(1)*IT(3)*XT(3) 

0303 

3* (XT (3) -ZC(MN , MCC) ) * (XT (3) -ZC (MN , MCC) ) 

0303 

RHOT’SQRT (RHOT) 

0304 

AE-A/SNC 

0306 

cm 

IS  HIT  POINT  ON  ENDCAP? 

0308 

IF(RHOT.GT. AE  .AND.  IHOT.GT.B)  GO  TO  40 

0307 

IF(EHOI.LI.AE  .AND.  RHOT.LT.B)  GO  TO  30 

0308 

VE>BTAN3(A*XT(3)  ,B»XT(I)> 

0300 

CVE-COS(VE) 

0310 

SVE-SIN(VE) 

0311 

RH0*SQRT(AE*AE*CVE*CVE«B»B*6VE»SVE) 

0313 

IF(RBOT.OT.RHO)  GO  TO  40 

0313 

30 

CONTINUE 

0314 

cm 

CALCULATE  DHT,  THE  DISTANCE  FROM  SOURCE  TO  HIT  POINT 

0316 

DHT-O. 

0310 

DO  SO  W»l,3 

0317 

so 

DHT»DHT* (XT(N) -XISC(N)) • (XT(N) -XISC (N)) 

0318 

DHT«SORT(DHT)  «SMU*WL 

0310 

IFCLIII  .AND.  (DHT.OT.DHIT)>  00  TO  40 

0330 

LHIT>.TIOE. 

0331 

DRIT-DHT 

0333 

IF(ie.LE.O)  00  TO  40 
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0333 

CALL  CTUlOTUIS.XT.-a.NCC) 

0334 

40  CONTINUE 

0336 

IF(LTEST)  THEN 

0330 

W»ITE(8,000> 

0337 

000 

FORMAT!/, '  TESTING  CAPINT  SUBROUTINE') 

0338 

WRITE(«,»)  IIS 

0330 

*BITE(6,»)  D 

0330 

niTE(6,0  DHIT.MD.LHIT.MH 

0331 

END  IF 

0333 

HE TURN 

0333 

END 
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SUBROUTINE  CYLINT 


This  routine  is  used  to  determine  if  a  ray  strikes  an  elliptic  cylinder. 


0001 

0003 

C— - 

SUBROUTINE  CTIINT(IS,D,DHIT,LHIT,LBDF,MH) 

0003 

cm 

0004 

cm 

DOES  RAT  HIT  CYLINDER? 

0005 

cm 

0000 

INCLUDE  'SHI COM. FOR' 

0173 

DIMENSION  D(3) ,XS(3) . VTD(2) ,BTD(4) ,CTC(2) ,DC<3) ,XSC<3> 

0173 

LOGICAL  LHIT, LBDF , LPLA , LCTL , LDEBUG , LTEST , LHT , LVARN 

0174 

COMNON/LPLCT/LPLA . LCTL 

0176 

COMMON/TEST/LDEBUC .LTEST , LHARN 

0170 

COMMOII/LIMII/SNL ,  SMLR  .SMLT.BIG 

0177 

COFMON/VAVE/VX  ,NL 

0178 

LHIT*.  FALSE. 

0170 

DH1T-0. 

0180 

IF (NOT. LCTL)  CO  TO  100 

0181 

Cl !  1 

STEP  THRU  CYLINDETS 

0183 

DO  60  MCC-l.MCX 

0183 

IFCMH.LT. 0  AND.  IABS(MH)  .HE. MCC)  GO  TO  60 

0184 

IF (MH  GT . 0  AND.  MH.EQ.MCC)  GO  TO  60 

0186 

CALL  CTLROT (XS , ISC , 3 , MCC) 

0180 

CALL  CTLROT(D.DC.l.MCC) 

0187 

cm 

DOES  RAT  HIT  CTLIHDER  SURFACE  SECTION? 

0188 

PHSR-BTAN2(DC(2),DC(1)) 

0180 

CPS*COS (PHSR) 

0100 

SPS*SIN (PHSR) 

0101 

RHOS*SQRT (ISC ( 1 ) • XSC ( 1 ) *  XSC (2) *XSC (2) ) 

0103 

cm 

STEP  THRU  CTLINDER  SECTIONS 

0103 

NECX-NEC(MCC)-1 

0104 

DO  40  NC-l.NECX 

0106 

NCP*NC*1 

0100 

A-AC(NC.MCC) 

0107 

B*BC(NC,MCC) 

0108 

cm 

PARAMETER  FOR  ELLIPTIC  CTLIHSER 

0100 

CTC (1) *COS (TCR (NC . MCC) } /SIN (TCR (NC . MCC) ) 

0300 

CTC(2)*C0S(TCR(NCP,MCC) ) /SIN (TCR(HCP .MCC) ) 

0301 

cm 

PARAMETERS  FOR  CONE  FRUSTUMS  SECTION 

0303 

ZZC*ZC (NCP . MCC) -ZC  <  NC . MCC) 

0303 

IF(ABS(ZZC) ,LT.SML*VL)  00  TO  40 

0304 

IN J« (AC (NCP . MCC) -AC (NC , MCC) ) /ZZC 

0306 

FL*TN J* (ISC (3) -ZC (NC . MCC) ) /A* 1 . 

0300 

cm 

RADII  AT  SOURCE  LOCATION 

0307 

AL«A*Fl 

0308 

BL»B»FL 

0300 

cm 

IS  SOURCE  INSIDE  OF  INFINITE  CTLINDER? 

0310 

IF(RH0S.0T.AL  .AND.  RHOS.GT.BL)  GO  TO  6 

0311 

IF(RHOS.LT.AL  .AND.  RHOS.LT.BL)  GO  TO  30 

0313 

VE*BT AN2 ( AL*  XSC (2) ,BL*XSC(1)) 

0313 

CVE-COS(VE) 

0314 

SVE-SIN(VE) 

0316 

1B0E*SGRT(AL»AL*CVE*CVE*BL»BL»SVE*SVE) 

0310 

IF(RHOS.GT.RHOE)  GO  TO  6 

0317 

so 

CONTINUE 

0318 

cm 

IS  BODICE  INSIDE  OF  FINITE  CYLINDER  SECTION? 

0310 

IF(ISC(3).GT.(ZC(NC.MCC)*XSC(1)*CTC(1)))  00  TO  40 

0330 

irUSC(3).LT.(ZC(HCP,MCC)*X8C(l)*CTC(2)))  00  TO  40 

0331 

LHIT-.IIUE. 

0333 

00  TO  100 

192 


0333 

6 

CONTINUE 

0334 

CHI 

FIND  COEFFICIENT  OF  EQUATION  TO  DETERMINE  HIT  POINT 

0336 

AA-A*A 

0330 

BB*B*B 

0337 

CHI 

PARTS  FOR  ALL  ELLIPTIC  CROSS  SECTION  TTPES 

0338 

CA«DC ( 1) »DC ( 1) / AA*DC (2) *DC (2) /BB 

0339 

C8*XSC(1)*DC(1)/AA+XSC(3)*DC(3)/BB 

0330 

CC-XSC  (1 )  *XSC  (1 )  /  AA  ISC  (2)  *  XSC  (2)  /BB 

0331 

CHI 

PARTS  FOR  CONE  FRUSTUM  SECTIONS 

0333 

CA«CA-THJ*THJ*DC(3)*DC(3)/AA 

0333 

CB=CB-THJ*FL*DC(3)/A 

0334 

CC*CC-FL«FL 

0335 

Cl  1 1 

IS  QUADRATIC  SOLVABLE  IN  REAL  SPACE? 

0336 

CHI 

IF  NOT,  NO  HIT  POINT  ON  CYLINDER  SURFACE  SECTION 

0337 

CT«CB»CB-CA»CC 

0338 

IF(CT.LE.O)  GO  TO  40 

0330 

Cl  1 1 

DETERMINE  TWO  POSSIBLE  HIT  DISTANCES 

0240 

SCT*SQRT(CT) 

0341 

RHP»(-CB*SCT)/CA 

0343 

RHM« (-CB-SCT) /CA 

0343 

CHI 

NEAREST  POSITIVE  ONE  IS  TRUE  HIT  POINT 

0344 

IFCRHP.LT.O.  AND.RHMLT.O.)  THEN 

0346 

CO  TO  40 

0346 

ELSE 

0347 

IFCRHP.LT.O. .OR.RHM.LT. 0.)  THEN 

0348 

RH'AMAXl (RHP , RHM) 

0340 

ELSE 

0360 

RH»AM1H1(RHP,RHM) 

0361 

ENDIF 

0263 

END  IF 

0363 

XPM*RH‘DC(1) ♦XSC(l) 

0264 

ZPM*RH*DC(3)«XSC(3) 

0265 

CHI 

IS  HIT  POINT  ON  FINITE  CYLINDER  SECTION? 

0266 

IF  (ZPM .  GT .  ZC  (NC ,  MCC)  •*XPM»CIC  ( 1)  .  OR . 

0367 

2ZPM.LT. ZC(NCP,MCC)«XPM*CTC(2))  GO  TO  40 

0368 

cm 

DISTANCE  FROM  SOURCE  TO  HIT 

0360 

DHT-RH*SNLR*KL 

0360 

Cl  II 

CHECK  FOR  NEAREST  HIT  POINT  FOR  DIFFERENT  SECTIONS 

0361 

1FCLHIT  .AND.  (DHT.CT.DHII))  GO  TO  40 

0362 

LHIT* .  TRUE . 

0363 

DHIT-DHT 

0364 

40 

CONTINUE 

0366 

Cl  1 1 

CHECK  TO  SEE  IF  RAT  HITS  ENDCAPS 

0366 

CALL  CAPINKXS.D.DHT.O.LHT.-MCC) 

0267 

IF(.NOT.LHT)  GO  TO  60 

0368 

IFCLHIT  AND.  (OHT.CT.DHIT))  GO  TO  60 

0260 

LHIT*. TRUE. 

0270 

DHIT-DHT 

0371 

60 

CONTINUE 

0372 

100 

IF(LTEST)  THEN 

0373 

•RITE (6, 000) 

0374 

000 

FORMAT (/, '  TESTING  CYLINT  SUBROUTINE’) 

0376 

KRITE(6,»)  XS 

0376 

•RITE(6,*)  D 

0377 

WRITE(6,*)  DHIT.LHIT.LBDF.MH 

0378 

ENDIF 

0370 

RETURN 

0380 

END 
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SUBROUTINE  CYLROT 


This  routine  performs  vector  transformations  between  the  various  cylinder  coordinate 
systems  and  the  reference  coordinate  system. 


0002 

SUBROUTINE  CYLROT (XREF.XCTL.N.MCL) 

0003 

CIM 

0004 

CM* 

ROTATES  AND  OR  TRANSLATES  VECTORS  IN  OR  OUT  OF  THE 

OOOfi 

CM* 

CYLINDER  COORDINATE  SYSTEMS 

0006 

CM* 

0007 

INCLUDE  'SHACOM.FOR' 

0173 

DIMENSION  XREF(3).XCYL(3) 

0174 

IF(N.LT.O)  00  TO  100 

0176 

xc«o. 

0176 

DO  60  1*1,3 

0177 

XCYL(I)*0. 

0178 

DO  60  J*l,3 

0179 

IF (II. EQ. 2)  XC=XCL(J,MCL) 

0160 

XCYL(I)  -XCTL  (I)  -*VCL(I .  J  .MCL)  •  (XREF(J)  -XC) 

0161 

60 

CONTINUE 

0182 

RETURN 

0183 

100 

DO  200  1*1,3 

0184 

XREF(I)*0. 

0186 

DO  160  J*1 ,3 

0186 

160 

XREF(I)«XREF(I)«VCL(J.l,MCL)*XCYLO) 

0187 

IF0l.EQ.-2)  XREF(I)*XREF(I)*XCL(I.MCL> 

0188 

200 

CONTINUE 

0189 

RETURN 

0190 

END 

SUBROUTINE  DOCYLS 


This  procedure  determines  which  mode  of  mapping  has  been  selected  by  the  user  and 
calls  the  appropriate  cylinder  processing  routines. 


0001 

0002 

C— 

SUBROUTINE  DOCTLS 

0003 

INCLUDE  'SHACOM.FOR' 

0160 

cm 

0170 

cm 

Thi*  lubroutln*  proc*****  all  tha  cylinder*  on*  i 

0171 

cm 

Do  any  ipaelal  cylinder*  la*t. 

0172 

Clf  1 

0173 

IF  (  FILCNM  GT.  0  )  THEN 

0174 

DO  1  MC*1,  MCI 

0176 

IF  (  MC  NE.  FILCNM  )  CALL  D0CTL(  MC,  FILCHR  ! 

0176 

i 

CONTINUE 

0177 

CALL  D0CTL(  FILCNM,  F1LCHC  ) 

0176 

cm 

0170 

cm 

Fill  with  a  different  character  for  aach  cylinder 

0180 

cm 

0181 

ELSEIF  (  FILCNM  LT.  0  )  THEN 

0182 

DO  2  MC=1 ,  MCI 

0183 

CALL  D0CYL(  MC.  CHAR(  MC«ICHAR(  ‘O'  )  )  ) 

0184 

2 

CONTINUE 

0166 

cm 

0186 

cm 

Fill  with  th*  main  background  fill  charactar. 

0187 

cm 

0188 

ELSE 

0180 

DO  3  MC«1,  MCI 

0100 

CALL  D0CTL(  MC,  FILCHR  ) 

0101 

3 

CONTINUE 

0102 

EHDIF 

0103 

RETURN 

0104 

END 

SUBROUTINE  DOCYL 


This  routine  projects  the  shadow  boundry  of  a  single  cylinder  onto  the  far-zone  sphere 
and  fills  the  area  of  the  cylinder  with  the  FILL  argument. 


0001 

0002 

0003 

0109 

0170 

0171 

0172 

0173 

0174 

0176 

0170 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0186 

0180 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0196 

0190 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0206 

0200 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0216 

0218 

0217 

0218 

0219 

0220 

0221 


C . . . — 

SUBROUTINE  DOCYLC  IC,  FILL  ) 

INCLUDE  ' SHACOM. FOR' 

cm 

Cl  II  Thli  subroutine  processes  a  single  cylinder. 

cm 

CHARACTER  FILL 
INTEGER 

♦  },  X,  IC 

Cl  Loop  control  variable*. 

■*  INT, 

Cl  Truncate  to  integer. 

♦  THETA I.  PHI I 

REAL 

♦  THETAR,  PHIR, 

Cl  That*  ft  phi  In  radian*. 

♦  T. 

Cl  Tha  parametric  loop  parameter. 

♦  MAGME , 

C!  Length  of  a  panedo-ald* 

♦  APT. 

C!  Scratch  variable. 

♦  DOT.  LSTDOT, 

C!  Dot  product  variable* 

♦  BTAN2,  SORT.  ABS, 

C!  Mlecallanaoue  function* 

♦  XTZ<  3  ), 

C!  temporary  vector 

♦  XP0(  3  ). 

Cl  Source  to  edge  in  ref  coord* 

♦  IPC(  3  ). 

Cl  Source  to  edge  in  pat  coord* 

♦  RIM(  3  ), 

Cl  Point  along  cap  in  cyl  coorde 

♦  RIM1(  3  ). 

Cl  Uee  for  dotmin  point* 

♦  RIM2C  3  ),  ANCTL(  3  ). 

Cl  Antenna  location  in  cylinder  coord* 

♦  DOTMIN (  2,  10  ) 

Cl  Th*  two  angle*  where  dot  la  minimum 
LOGICAL 

♦  FNDONE 

Cl  Found  on*  of  th*  aero  dot* 

Cl 

CIH  Loop  through  Mdcap*,  and  lncramentally  on  *dg**. 

Clll  Tran*form  th*  antenna  to  cyl  coord*  (Include  a  translation) . 

cm 

CALL  CTLROTC  ANTENN,  ANCTL,  *2,  IC  ) 

cm 

Cltl  Do  th*  andcaps  one  at  a  time. 

cm 

DO  200  J>1.  NEC(IC) 

cm 

Clll  Loop  around  th*  sndcap  and  number  wher*  th*  dot  product*  ar*  **ro 
Cl  1 1  between  th*  vector  looking  at  th*  point  and  th*  radial  vector  on 
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ka  loop  Bay 


0322  Clll  the  endeap  to  tko  point.  Iko  cryptic  paraaetera  on 
0223  Clll  "Loop  froa  taro  to  2»PI  in  otte-degraa  atepa." 

0324  Clll 

0226  DO  300  T-0.0,  TPIKTPI/360.0) .  (TPI/360.0) 

0220  Clll 

0227  Clll  Calcnlnta  tka  dot  prodnct  and  raauaber  tka  two  aaallaat  onaa. 
0326  Clll 

0220  RIM(  1  )  «  COS(T)  *  AC(J.IC) 

0230  RIM(  2  )  •  SIM(T)  *  BC(J.IC) 

0231  RIM(  3  )  ■  ZC(J.IC) 

0233  DOT  ■  RIM(l)  *  (  RIM(l)  -  AHCTL(l)  ) 

0233  *  ♦  RIM (2)  *  (  RIMC2)  -  AHCTL(2)  ) 

0234  Cl  1 1 

0236  Clll  If  (tka  laat  dot  product)  •  (tkia  dot  product)  <  0,  tkan  tkat  la 
0230  Clll  whara  onr  dot  aign  goaa  through  taro. 

0237  Cl  1 1 

0230  IF  (  T  .EQ.  0.0  )  THEN 

0230  LSTDOT  «  DOT 

0240  FNDONE  «  .FALSE. 

0241  END IF 

0243  IF  (  SICN(1 . 0,DOT)  *  SICN(1 .O.LSTDOT)  .LT.  0.0  )  THEN 

0243  IF(  .NOT.  FNDONE  )  THEN 

0344  DOTMIN (  1,  J  )  «  T 

0246  FNDONE  •  TRUE. 

0240  ELSE 

0247  DOTMIN (  2,  J  )  -  T 

0340  ENDIF 

0249  ENDIF 

0260  LSTDOT  «  DOT 

0261  Clll 

0262  Clll  Caleulata  thata  A  phi  aa  wa  go  around  tha  rla. 

0263  Clll  Tr'  'ora  tha  rla  point  Into  raf.  coord  ayataa. 

0364  Cl  1 1  F  vactor  froa  aourea  to  rla. 

0266  Clll 

0360  CALL  CYLROK  XT3.  RIM,  -2,  IC  ) 

0267  Clll 

0260  Clll  Convart  froa  tha  rafaranca  coordlnata  ayataa  to  tka  pattarn 
0260  Clll  coordlnata  ayataa. 

0200  Clll 

0201  XPq(l)  «  XTZ(l)  -  ANTEHN(l) 

0202  XPq(2)  «  XTZ(2)  -  ANTENN (2) 

0203  XP0(3>  »  172(3)  •  ANTENN (3) 

0264 

0206  IPC(l)  •  XPq(l)*VPC(l,t)  ♦  XPq(2)*PPC(l,2)  ♦  XPq(3)*VPC(l,3) 

0260  XPC(2)  «  XPQ(1)*VPC(2,1)  ♦  XP0(2)»VPC(2,2)  ♦  XPq(3)»VPC(2,3) 

0207  XPC(3)  *  XPq(l)*VPC(3,l)  ♦  XPq(2)*VPC(3,2)  ♦  XPq(3)»VPC(3,3) 

0200 

0200  XPT  -  SqRT(  XPC(1)*XPC(1)  *  XPC(2)*XPC(2)  ) 

0270  Clll 

0271  Clll  Caleulata  anglaa  rapraaantlng  border  of  rla  and  do  branck  taat 
0272  Clll  on  tka  phi  angle. 

0273  Cl  1 1 

0274  THETAR  *  BTAN2(  XPT,  XPC(3)  ) 

0276  PHIR  •  BTAH2(  XPC(2),  XPC(l)  ) 

0370  IF  (  PHIR  .LT.  PH1-0.6»RESPH  )  PHIR  -  IPI  ♦  PHIR 

0277  Cl  1 1 

0370  Clll  Define  pixel  location. 

0270  Clll 

0200  THETA I  -  INT(  (THETAR  -  THET1)  /  RESTH  <  0.6  )  M 

0201  PHII  -  IRK  (PHIR  -  PHI)  /  RESPH  ♦  0.6  )  ♦  1 

0203  Cl  1 1 

0303  Clll  Put  tka  character  late  tha  output  buffer  at  tka  proper  petition. 
0204  Clll  Taat  If  ladlcea  fall  within  epeclfied  window. 

0306  Cl  1 1 
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0386  IF  (  (THETA I  CE.  1)  .AND.  (THETA I  .LE.  COLS)  )  THEN 

0387  IF  (  (PHI I  .G£.  1)  .AND.  (PHII  LE.  EONS)  )  THEN 

0388  OUTBUF (  THETA I ,  PHII  )  ■  CHAR<7) 

0380  END IF 

0390  ENDIF 

0391  cm 

0393  CM!  Reduplicate  a  wrapped-around  charaetar. 

0393  cm 

0394  IF(  (PHII  ,EQ.  1)  .AND.  ABS(PH3-PH1-IPI>  .LE.  RESPH)  THEN 

0395  OOTBUF (  THETAI,  HOWS  )  •  CHAR (7) 

0398  ENDIF 

0397  300  CONTINUE 

0398  300  CONTINUE 

0399  CHI 

0300  CHI  Before  rasterising,  connect  tha  'detain#*. 

0301  CM)  A  snaakey  trick  la  pulled  hara.  Inataad  of  transforming  ovary 
0303  Clll  lncraaant  of  tha  dotmln  point# ,  only  tha  two  and  pointa  ara 

0303  Clll  transformed,  than  that#  k  phi  ara  calculated  for  each  increment. 

0301  Cl  1 1  This  ia  valid  because  tha  line  vhlch  connacta  tha  two  pointa  on 

0305  Cl  1 1  tha  rims  of  tha  cylinders  ara  atralgt  Unas  in  both  RCS  and  cyl 

0306  Clll  coord  systems.  Note  that  this  gismo  assumes  that  you  ara  never 
0307  Clll  inside  of  a  cylinder,  or  your  dotmlns(K,)  probably  gat  crossed 

0308  Clll  resulting  in  an  lnside-out  or  bowtie-sheped  cylinder. 

0309  Clll 

0310  DO  400  R=l,  3 

0311  DO  600  J=l,  HECdO-l 

0313  RIM(  1  )  *  C0S(  DOTMItKK.J)  )  *  AC(J.IC) 

0313  RIM(  3  )  =  SIH(  DOTMIH(X.J)  )  *  BC(J.IC) 

0314  RIM(  3  )  *  ZC(J.IC) 

0316  CALL  CTLR0T(  RIM1.  RIM,  -3,  IC  ) 

0316  RIM(  1  )  ■  C0S(  DDTMIN (X, J«l)  )  •  AC(J*1.IC) 

0317  RIM(  3  )  •  SI1K  DOTMIN (X , J+l)  )  •  BC(J«1,IC) 

0318  RIM(  3  )  •  ZC(J«1,IC) 

0319  CALL  CTLR0T(  RIM3,  RIM.  -3.  IC  ) 

0330  C!  1 1 

0331  Clll  This  MACME  is  analogous  to. the  one  is  DOPLA  except  it 
0333  Clll  works  with  peudao-aides,  so  tha  name  is  somewhat  misleading. 

0333  Clll 

0334  MAGME  »  SQRTC 

0335  ♦  (  RIM3(1)  -  RIMl(l)  )**3  ■* 

0336  *  (  RIM3(3)  -  RIM1(3)  )'»3  * 

0337  ♦  (  RIMS (3)  -  RIM1(3)  )**3  ) 

0338  T  •  0.0 

0339  60  IF  (  T  CT.  1.0  )  OOTO  600 

0330  Clll 

0331  Clll 

0333  Clll  Thass  fonctlona  compute  tha  thsta/phl  associated  with  a  given  point 
0333  Clll  along  a  cylinder  psuodo-adga  as  a  function  of  T  (See  DOPLA.) 

0334  Clll  Tha  variables  ITZ  and  RIM  ara  ra-usad  for  multiple  purpossa  hare. 
0335  Cl  1 1 

0336  Clll  Find  vactor  from  source  to  rim. 

0337  Cl  1 1  Convert  frem  tha  rsfsrancs  coordinate  systum  to  the  pattern 

0338  Clll  coordlaata  system 

0339  Clll 

0340  XPq(l)  •  (  RIM3(1)-RIM1(1)  )*T  ♦  RIMl(i)-ANTENH(l) 

0341  XPQ(3)  ■  (  RIM3(3) -RIM1 (3)  )*T  *  RIM1(3)-ANTENN(3) 

0343  ZPq(3)  -  (  RIM3(3)-RIM1(3)  )*T  *  RIMi (3) -ANTEHN (3) 

0343 

0344  XPC(l)  «  XPq(l)»VPC(l,l)  ♦  ZPq(3)*VPC(l,3)  ♦  XPq(3)»VPC(l,3) 

0346  1PC(3)  -  IPq(l)*VPC(3,l)  ♦  XPq(3)'VPC(3,3)  ♦  XPq(3)'VPC(3,S) 

0346  XPC(3)  '  IPq(l)*VPC(3,l)  *  XPq(3)'VPC(3,3)  ♦  IPq(3)»VPC(3,3) 

0347  XPT  ■  SqRT(XPC(l)'XPC(l)  *  XPC(3)'XPC(2)) 

0348  Cl  1 1 

0349  Cl  1 1  Oaf las  the  eagles  reprassatlag  tha  projection  of  the  curved  sides 


0360 

cm 

and  do  a  branch  cnt  tost  on  phi. 

0361 

cm 

0363 

THETAR  *  BTAH3(  1PT,  IPC<3)  ) 

0363 

PHIR  »  BTAH3(  XPC(3) ,  XPC(l)  ) 

0364 

IF  (  PBIB  .LI.  PH1-0.6*R£SPH  }  PKIR  «  TPI  ♦  PHIR 

0366 

cm 

0360 

cm 

Daflno  plxal  location  and  pat  charactar  la  approprlata  apot. 

0367 

cm 

0368 

THETA I  «  IHT(  (THETAR  -  THET1)  /  RESTH  *  0.6  )  ♦  1 

0369 

PHI I  •  IHT (  (PHIR  -  PHI)  /  RESPH  ♦  0.6  )  ♦  1 

0360 

cm 

0361 

cm 

Chack  If  anglaa  fall  within  window. 

0363 

cm 

0363 

IF  (  (THETAI  . CE.  l)  .AND.  (THETAI  .LE.  COLS)  )  THEN 

0364 

IF  (  (PHI1  .GE.  1)  .AND.  (PHI1  .LE.  ROWS)  )  THEN 

0366 

OUTBUF (  THETAI.  PHI1  )  «  CHAR(7) 

0366 

END  IF 

0367 

END  IF 

0368 

cm 

0369 

CIII  Radnplicata  a  wrappad-aronnd  charactar. 

0370 

cm 

0371 

IF(  (PHI I  EQ.  1)  .AND.  ABS(PH3-PH1-TPI)  .LE.  RESPH)  THEN 

0373 

OUTBUF (  THETAI.  ROWS  )  «  CHAR(7) 

0373 

END  IF 

0374 

T  «  T  ♦  MIN(  0.99,  (XPY*ALPH/MACME  ♦  l.E-7)  ) 

0376 

COTO  60 

0376 

600 

CONTINUE 

0377 

600 

CONTINUE 

0378 

400 

CONTINUE 

0379 

cm 

0380 

cm 

How  do  an  araa  fill  on  tha  objact  Jnat  outlinad. 

0381 

cm 

Tall  SCAN  that  thin  la  a  CTL1NDER  by  aaing  a  *3". 

0383 

cm 

0383 

DO  700  PHI I  «  1.  ROWS 

0384 

CALL  SCAN(  IC,  OUTBUF (1 .PHtI) .  PHII.  FILL,  3  ) 

0386 

700 

CONTINUE 

0386 

0387 

RETURN 

0388 

END 
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SUBROUTINE  DOPLAS 


This  routine  determines  which  mapping  options  the  user  has  selected  and  calls  the 
appropriate  plate  processing  routines. 

0001  C . 

0003  SUBROUTINE  DOPLAS 

0003  INCLUDE  ’SHACOM.FOR' 

oi6B  cm 

0170  CIII  This  aubroutlne  procaaeee  each  plata  ona  at  a  tlaa.  The 
0171  CIII  highlighting  logic  la  contalnad  hara. 

0173  Cl  1 1 

0173  CIII  Do  tha  plataa  ona  at  a  tlaa,  than  do  tha  plata  that  «aa  aoppoaad  to 
0174  CIII  ba  highlighted  laat. 

0176  cm 

0176  IF  (  FILPHM  .01.  0  )  THEM 

0177  DO  1  MP  ■  1.  MPA 

0178  IF  (  MP  . NE.  FILPHM  )  CALL  D0PLA(  HP,  FILCHR  > 

0170  1  CONTINUE 

0180  CALL  DOPLA (  FILPNM.  FILCHP  ) 

0181  cm 

0183  CIII  Fill  with  a  dlffarant  character  for  each  plata. 

0163  cm 

0184  ELSEIF  (  FILPHM  LT.  0  )  THEN 

0186  DO  3  MP  •  1,  MPA 

0186  CALL  DOPLA (  MP,  CHAR(  MP«ICHAR(  '6'  )  )  ) 

0167  3  CONTINUE 

0188  cm 

0180  CIII  Fill  everything  with  tha  akin  background  character. 

0100  cm 

0101  ELSE 

0103  DO  3  MP  ■  1.  MPA 

0103  CALL  DOPLA (  MP,  FILCHR  ) 

0104  3  CONTINUE 

0106  ENDIF 

0106 

0107  RETURN 

0108  END 
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SUBROUTINE  DOPLA 


* 


This  routine  computes  the  shadow  map  for  a  single  cylinder  by  projecting  its  boundries 
onto  the  far-zone  sphere  and  then  filling  in  its  area  in  the  map  array. 


0001 

0002 

0003 

0100 

0170 

0171 

0172 

0173 

0174 

0176 

0176 

0177 

0178 

0170 

0180 

0181 

0182 

0183 

0184 

0186 

0186 

0187 

0188 

0180 

0100 

0101 

0102 

0103 

0104 

0106 

0108 

0107 

0108 

0100 

0200 

0201 

0202 

0203 

0204 

0206 

0208 

0207 

0208 

0200 

0210 

0211 

0212 

0213 

0214 

0216 

0218 

0217 

0218 

0210 

0220 

0221 


C - 

SUBROUTINE  DOPL* (  IP,  FILL  ) 

INCLUDE  'SH1C0M.F0R' 

CHARACTER  FILL 
INTEGER 

♦  IP,  INI, 

Cl  Truncate  to  tha  naaraat  Integer. 

♦  THETA I,  PHI I 

Cl  Local  lndlclaa  into  char  array. 

REAL 

♦  T. 

Cl  Parametric  Increment  parameter. 

♦  THETAR,  PHIR, 

Cl  Theta  A  phi  in  rediene 

♦  MAGME , 

Cl  Length  of  aide  ME. 

♦  XPT, 

Cl  temporary  variable 

♦  IPq<3). 

Cl  Source  to  edge  in  ref  coorde 

♦  IPCC3). 

Cl  Source  to  edge  in  pat  coorde 

♦  BTAH2,  8QRT,  ABS 
Cl  Mlecellanaoue  fanctiona. 

Cl  1 1 

Clll  Loop  through  lacramentaly  along  edgee. 

cm 

DO  200  ME«1,  MEP(  IP  ) 

HEX THE  -  M0D(  ME,  MEP(IP)  )  ♦  1 
MACME  >  VNACC  ME,  IP  ) 

T  -  0.0 

60  IF  (  T  OT.  1.0  )  GOTO  100 

cm 

Cl  1 1  Theao  fanctiona  connate  the  theta/phi  aaeoclated  with  a  given 
Clll  point  along  an  edge  between  two  camera  ME  and  NEXTME  an  a 
Clll  function  of  T.  T  varlaa  from  0  to  1  and  la  adjeeted  to  keep 
Clll  within  a  ante  and  efficient  excareloa  at  all  tlaee. 

Clll 

Cl  1 1  Ceavert  from  the  reference  ceordlnate  eyatam  to  the  pattern 

Cl  1 1  coordinate  ayataei 

Clll 

IPq(l)-(XX<l,IEXTI*,IP)-XI<l,W.IF))»T*XXCl,«,IP)-ANTE*X(i) 
lP0(2)*(n(2,fEITME,  IP)-XI(2,IC,  1P))»T«II(2,ME,  IP)-A*TENN(2) 
IPQ (3) * (XX (3 , IE1TME , IP) -XX (3 , ME , IP) ) *T«IX (3 , ME , IP) -ANTENR (3) 

xpc(i)-xpq(i)*vpc(i,i)  ♦  xpq(2)»vpc(i,2)  ♦  xpq(3)*vpc(i,s) 

XPC(2)>XPq(l)*VPC(2.1)  ♦  X?q(2)»VPC(2,2)  ♦  XPq(3)»VPC(2,S) 

XPC(3)»IPq(l)*VPC(3,l)  ♦  XPq(2)«VPC<3,2)  ♦  XPq(3)»VPC(3,3) 
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IPT  ■  SQRT(  XPC(1)*XPC(1)  ♦  IPC(2)*XPC(2)  ) 


0222 

0223 

0224 

CMI 

0226 

cm 

0226 

cm 

0227 

cm 

0226 

0229 

0230 

0231 

0232 

cm 

0233 

cm 

0234 

cm 

0236 

cm 

0236 

0237 

0238 

cm 

0239 

cm 

0240 

cm 

0241 

0242 

0243 

0244 

0246 

0246 

cm 

0247 

cm 

0246 

cm 

0249 

0260 

0261 

0262 

cm 

0263 

cm 

0264 

cm 

0266 

cm 

0266 

cm 

0267 

cm 

0268 

cm 

0269 

0260 

0261 

100 

0262 

200 

0263 

CMI 

0264 

cm 

0266 

cm 

0266 

cm 

0267 

0268 

0269 

300 

0270 

0271 

0272 

Define  the  anglee  rapreaentlng  the  projection  of  the  carved  eldee 
and  do  a  branch  cat  teat  on  phi. 

IHETAR  «  BTAH2(  IPT,  XPC(3)  ) 

PHIR  •  BIAN2(  IPC(2) ,  XPC(l)  ) 

IF  (  PHIR  .LT.  PHI-0 . 6*R£SPH  )  PHIR  ■  TPI  ♦  PHIR 

Define  pixel  location  and  pat  the  a  character  in  the  appropriate 
apot. 


THETA  I  ■  INK  (THETAR  -  THET1)  /  RES  TH  ♦  0.6  )  ♦  1 
PHI I  >  IHT(  (PHIR  -  PHI)  /  RESPK  ♦  0.6  )  *  1 

Check  if  anglea  fall  within  vlndov. 

IF  (  (THETA I  CE.  1)  .AND.  (THETA I  .LE.  COLS)  )  THEN 
IF  (  (PHI1  CE  1)  .AND.  (PHI I  LE.  RONS)  )  THEN 
OUTBUF (  THETA I,  PHII  )  «  CHAR(7) 

E1IDIF 

ENDIF 


Reduplicate  a  wrapped- around  character. 

1F(  (PHII  .EQ.  1)  .AND.  ABS(PH2-PH1-TPI)  .LE.  RESPH)  THEN 
OUTBUF (  THETA I,  RONS  )  •  CHAR(7) 

ENDIF 

Pat  an  upper  bound  on  the  increment  for  the  eaee  when  the  line 
aegmont  le  very  ahort  or  tha  dlatance  to  the  aegaent  ia  great. 

In  the  degenerate  caee  (on  the  Z-axle)  prevent  a  potential  Infinite 
loop  by  putting  a  lover  bound  on  delta-t  (ie  by  alwaya  adding  at 
leant  a  very  naall  sober  to  T.) 

T  •  T  ♦  MIN(  0.99.  (XPT'ALPH/MAOME  ♦  l.E-7)  ) 

GOTO  60 
CONTINUE 
CONTINUE 

Now  do  an  area  fill  on  the  object  Juet  outlined. 

Tell  SCAN  that  thla  la  a  plate  by  uuing  a  *1*. 

DO  300  PHII  •  1,  ROWS 

CALL  SCAN(  IP,  OUTBUF (1. PHI I),  PHII,  TILL,  1  ) 

CONTINUE 

RETURN 

END 
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SUBROUTINE  GEOM 


This  routine  computes  necessary  geometrical  information  needed  by  other  routines.  It 
is  called  before  the  main  command  loop. 


0001 

0002 

C - 

SUBROUTINE  GEOM 

0003 

cut 

0004 

cm 

THIS  ROUTINE  COMPUTES  ALL  THE  GEOMETRY  ASSOCIATED 

0006 

cm 

WITH  FIXED  PLATE  STRUCTURE , SUCH  AS  EDGE  UNIT  VECTORS. 

ooos 

cm 

PLATE  NORMALS .SHADOWED  PLATES, ETC. 

0007 

cm 

0006 

INCLUDE  ' SHACOM . FOR' 

0174 

DIMENSION  IHIT (NEX) , XI I (3) , XIN (3) , VI (3) . XC(3) , XSI (3) . XSII (3) 

0176 

DIMENSION  X0B(3) ,XDC(3) ,VTCP(2) ,BTCP(4) ,VTCN(2) ,BTCH(4) ,DS(3) 

0170 

DIMENSION  WO  (3)  ,  WN  (3) ,  WB  (3)  ,  WH  (3) .  XBT  (3)  ,  PVTRN1  (3) 

0177 

LOGICAL  LSURF , LNPL , LTRN 1 

0178 

LOGICAL  LSHD , LSTD , LSTS , LCTD , LHCT , LHIT 

0170 

LOGICAL  LGRHD , LIHD . LDE8UG , LTEST , LVABH 

0180 

C0M40N/TEST/LDEBUC . LTEST , LVARN 

0181 

COMMOH/L IM I T/SML . SMLR , SMLT , BIG 

0182 

C0M40N/VAVE/VK ,  VL 

0183 

C0M40N/LSKDP/LSTS , LSTD (NEX) 

0184 

C0H40N/GR0UND/LGRND . MPXR 

0186 

IF(LDEBUG)  WRITE (8 .887) 

0188 

887 

FORMAT (/, *  DEBUGGING  GEOM  SUBROUTINE1) 

0187 

cm 

DETERMINAIOH  OF  V.VN.AND  VP  UNIT  VECTORS  FOR  EDGE-FIXED 

0188 

cm 

COORDINATE  SYSTEM 

0180 

cm 

STEP  THRU  PLATES 

0100 

DO  100  MP-l.MPXR 

0101 

MEX-HEP(MP) 

0102 

cm 

STEP  THRU  EDGES 

0103 

DO  16  ME-l.MEX 

0104 

MME-ME«1 

0106 

IF(ME.GT.MEX)  NWE«1 

0108 

VM-O. 

0107 

cm 

CALCULATE  EDGE  UNIT  VECTOR  V  AND  EDGE  LENGTH  VMAO 

0108 

DO  10  N-1.3 

0100 

V (N , ME .MP) -XX (N .  M4E .HP) - XX (N , ME .HP) 

0200 

10 

VM«VM«V(N .ME , MP) «V(N .ME , MP) 

0201 

VMAO  (ME  ,MP) -SORT  (VM) 

0202 

DO  11  N-1.3 

0203 

li 

V (N . ME . MP) -V (H , ME . MP) /VMAO (ME . MP) 

0204 

16 

CONTINUE 

0206 

IF(.HOT.LDEBUG)  GO  TO  B91 

0208 

DO  802  ME-l.MEX 

0207 

WRITE(6,0  (V(N.ME.MP)  ,N*1 ,3) 

0208 

002 

CONTINUE 

0200 

001 

CONTINUE 

0210 

cm 

CALCULATE  PLATE  UNIT  NORMAL  VN 

0211 

VN(l.MP)-0. 

0212 

VN(2.MP)-0. 

0213 

VN(3,MP)»0. 

0214 

DO  22  ME-l.MEX 

0216 

MV*ME«1 

0218 

IF(MV.GT.MEX)  MV-1 

0217 

VN(1,MP)-VN(1,MP)*V(2,ME,W)«V(3,MV,MP)-V(3.HV,MP)*V(3,ME,MP) 

0218 

VN(2.MP)-VN(2,W)-*V(3.I«.MP)*V(1,MV,MP)-V(3.MV,MP)*V(11ME,MP) 

0210 

VN(3.MP)-VN(3.MP)«V(l,W.W»)«V(2.MV.W)-V(i.MV.MP)»V(2.W.MP) 

0220 

22 

CONTINUE 

0221 

VNM-0 , 
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0333 

DO  30  0*1,3 

0333 

30 

V0M»VNM«VN(H , HP) • VO (0 , HP) 

0334 

V0M*SQRT (VNM) 

0336 

DO  31  0*1,3 

0330 

31 

V0(0,MP)*VN(0,MP)/VNM 

0337 

IF(LDEBUC)  WRITEC6, *)  (VO(O.MP) .0*1 .3) 

0338 

cm 

INSURE  THAI  ALL  PLATES  ARE  FLAT.  OTHERWISE  ABORT! 

0330 

cm 

TAKE  DOT  PRODVCT  OF  PLATE  NORMAL  AND  EACH  EDGE  UHIT  VECTOR 

0330 

DO  130  ME*1  ,MEI 

0331 

D0I«VH(1,MP)*V<1,HE,MP)«VN(3,MP)*V(3.ME.HP)*VN(3.MP)*V(3,ME.KP) 

0333 

ADOT'ABS(DOT) 

0333 

IFUDOT.LT. 0.01)  00  TO  130 

0334 

MEE*ME+1 

0336 

IF(MEE.CT.MEl)  HEE*1 

0338 

VRITE(8, 131)  HP.MEE, ADOT 

0337 

131 

FORNATC  PLATE  8  ’,13.'  18  ROT  FLAT!  CORNER  *  ’,13.'  HAS  ', 

0338 

3 'PROBLEM  7'  WARP*  \F7.3.'  PROGRAM  ABORTS  IF  THE  WARP' 

0339 

3'  IS  GREATER  THAO  0.03  «*•**•') 

0340 

IF (ADOT. GT. 0.03)  STOP 

0341 

130 

CONTINUE 

0343 

cm 

CALCULATE  DOIT  BIOORMAL  VP  WHICH  IS  10  PLATE  PLANE 

0343 

cm 

AND  PERPENDICULAR  TO  PLATE  EDGE 

0344 

cm 

TAKE  CROSS  PRODUCT  OF  PLATE  NORMAL  AND  EDGE  VECTOR 

0346 

DO  30  ME*1,MEX 

0348 

VP(1,ME,MP)*VN(3.MP)»V(3,ME,MP)-VB (3, HP) »V(3,ME,MP) 

0347 

VP(2.ME,MP)«VN(3,MP)»V(l,ME,MP)-Vl!(i,MP)*V(3,ME,MP) 

0348 

30 

VP(3,ME,MP)*VN(1,MP)*V(2,ME,MP)-VN(3,MP)*V(1,ME,MP) 

0340 

IF(.NOT.LDEBUG)  GO  TO  003 

0360 

DO  094  ME-l.MEX 

0361 

004 

WRITE(8,*)  (VP(N,ME,MP) ,0*1,3) 

0363 

003 

CONTINUE 

0363 

100 

CONTINUE 

0364 

RETURN 

0366 

END 
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SUBROUTINE  INITGF 


This  routine  is  used  to  initialize  graphics  each  time  an  output  is  desired.  Here,  it  zeroes 
out  the  previous  array  information  and  recalculates  parameters  based  on  the  user-specified 
desired  resolution. 


0001 

oooa 

0005 

oiso 

0170 

0171 

0172 

0173 

0174 

0176 

0170 

0177 

0170 

0170 

0100 

0101 

0102 

0103 

0104 

0106 

0100 

0107 

0100 

0100 

0100 

0101 

0102 

0103 

0104 

0106 

0100 

0107 

0100 


c - 

SUBROUTINE  INITCF 
INCLUDE  'SHiCOM.m* 

cm 

CMI  Thl*  ■ebroatia*  lnltlallio*  com  graphic*  staff. 

Clll  Ita  function  1*  to  lnitlalla*  thing*  frsa  on*  plot  to  tho  a*xt, 
Clll  bat  nlthln  tho  contoxt  of  *  ainglo  *o**len. 

cm 

1RTE6ER 

♦  I,  J.  IRT 

cm 

CMI  Clour  tho  character  bnffar. 

cm 

DO  10  J«l.  M4XR0V 
DO  10  I«l,  H4IC0L 
10  0UTBUF(  I.  J  )  ■  *  • 

cm 

CM!  Tho  a  unbar  of  row*  »  colon*  a**d*d  for  lataraal  roproaoatatloa  1* 
Clll  calcalatod  from  tho  a*or-*ol*ctod  (or  Oofaaltod)  angular  range*  of 
CHI  Interest  coablnsd  with  th*  desired  roaolatloa  la  rada/plxol 

cm 

RONS  *  IHT(  (PH2  -  PHI)  /  RESPH  ♦  0.6  )  ♦  1 
COLS  -  INK  (THET2  -  THET1)  /  RESTH  ♦  0.6  )  ♦  1 

CM! 

C!  I !  Calculate  *om  paraawtor*  asodod  by  th*  dynamic  T  lacrannt 
Cl  1 1  algorithm* .  The  maximum  allowable  angular  *xcar*loa  1*  th* 

Clll  • Bailor  of  th*  auabnr  of  radlaa*  la  a  *lagl*  plxol  of  olthar  that* 
CHI  or  phi. 

Clll 

4LPH  •  MIN (  RESTH,  RESPH  ) 

cm 

RETURN 

END 
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SUBROUTINE  PLAINT 


This  routines  determines  if  a  given  ray  strikes  a  plate. 

0001  c 

0003  C . . 

0003  SUBROUTINE  PLAIHI(XIS,D.DHIT.MH,LHII> 

0004  Cl  1 1 

0006  Clll  DOES  RAT  HIT  PLATE. IF  MH*0  ALL  PLATES  ARE  CHECKED. 

0006  Clll  IF  MH«-MP  THEN  ONLY  MP  CHECKED  AND  SOURCE  POSITION 

0007  Clll  MOVED  TO  HIT  POSITION  IF  RAY  HITS  MP. 

0008  Clll  IF  MH*MP , THEN  ALL  PLATES  OTHER  THAN  MP  ARE  CHECKED. 

0000  cm 

0010  INCLUDE  ' SHACOM . FOR ' 

0176  DIMENSION  XIS(3) ,D<3) .11(3) ,PVTRN(3) 

0177  L0C1CAL  LH11 , LPLA , LCYL , LSTS , LSTD , LTRN 

0176  LOGICAL  LGRHD , LDEBUG , LTEST , LWARH 

0170  COM40H/TEST/LDEBUG. LTEST .LWARN 

0180  C0MM0H/L1MIT/SML , SMLR , SMLT . BIC 

0161  COMMON/LPLCT/LPLA , LCYL 

0183  COMMON/HITPLT/MPH 

0183  COMMOH/GROUHD/LCRHD ,  MPZR 

0184  LHIT*.  FALSE. 

0186  DHIT»0. 

0186  IF(. HOT. LPLA)  RETURN 

0187  Clll  STEP  THRU  PLATES 
0188  DO  60  MPPM.MPXR 

0180  MP-MPP 

0100  IF(MPEq.MH)  GO  TO  60 

0101  IF(MH.LT.O)  MPMABS(MH) 

0103  Clll  IF  TOTAL  SHADOWING  ALGORITHM  IS  BEING  USED.  BAS  PLATE  MP 

0103  Cl  1 1  SHADOWED  EVERY  RAY  TESTED? 

0104  CUUX  IF  (LSTS.  AND..  NOT.  LSTD  (MP))  GO  TO  60 

0106  MEX-MEP(MP) 

0106  AN-O. 

0107  DO  6  N«l,3 

0108  6  AN>AN4 (XIS(H)-XX(H, 1 ,MP) )*VN(N ,MP) 

0100  DH«D(1)*VN(1,MP)«D(3)*VN(3,MP)*D(3)*VN(3.MP) 

0300  Clll  DOES  RAT  PASS  THRU  PLATE  PLANE? 

0301  IF(AN*DN.GE.O. )  GO  TO  60 

0303  DO  10  N«1 ,3 

0303  Cl  1 1  CALCULATE  POINT  WHERE  RAT  INTERSECTS  PLATE  PLANE 

0304  10  XT(N)«XIS(N)-AN»D(N)/DN 

0306  IF (MP.Eq.MPXR. AND. LGRHD)  GO  TO  11 

0306  DBT*0 . 

0307  Clll  IS  HIT  POINT  OH  PLATE? 

0308  DO  30  MEM, HEX 

0300  MOMEM 

0310  IF(WE.GT.MEX)  MEM 

0311  RD*0. 

0313  DO  30  NM.3 

0313  30  RD*RD+(XX (N.ME.MP) -XT(N))*(XX (R,ME,MP)-XT(N)) 

0314  CP*VN(1,MP)*((XX(3,ME,M) -XT (3) )* (XX (3.  IKE, MP) -XT (3)) 

0316  3-(II(3.ME.MP)-XT(3))«(XX(3,ME,MP)-XT(2)» 

0316  CP-CP*VN(2.NP)*(UX(3,NE,NP)-XT(3))*(XX(1,I«C.MP)-XT(1)) 

0317  2-(XX(l.ME,W>)-XT(l))*(XX(3,M4ElMP)-XT(3))) 

0218  CP»CP*VH(3,»)*«IX(1,ME,W>)-XI(1))»<XX(2,ME.HP)-XT(3)) 

0318  3-(IX(3.ME,NP)-XT(2))*(XX(l,MME.MP)-XT(l))) 

0330  DB1«BTAN3(CP.RD) 

0331  DBT«DBT«DBI 

0333  30  CONTINUE 
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0223 

IF(ABS(DBT).LT.PI)  CO  TO  60 

0224 

cm 

CALCULATE  DISTANCE  TO  HIT  (DHIT'SHORTEST  DHT) 

0226 

11 

DHI-0. 

0220 

DO  40  N*l,3 

0227 

40 

DHT-DHT*  UT  (N) -XIS(N) ) •  (XI (N)  -XIS(N) ) 

0228 

DHT=SflRT(DHT)«SMLR 

0220 

IF (LHIT . AND . (DHT . CT . DHIT) )  CO  TO  60 

0230 

LHIT*. TRUE. 

0231 

DHIT-DHT 

0232 

MPH*MP 

0233 

IF(MH.CE.O)  00  TO  60 

0234 

DO  46  11*1,3 

0236 

cm 

MOVE  BIT  POSITION  AN  INCREMENT  TOWARDS  SIDE  OF  PLATE 

0236 

cm 

WHICH  SOURCE  LIES  ON 

0237 

46 

XIS(H) *XT (N) -SIGN (SMLR , AN) • VN (N ,MP) 

0238 

CO  TO  81 

0230 

60 

CONTINUE 

0240 

IF(MH.LT.O)  CO  TO  61 

0241 

cm 

IF  TOTAL  SHADOWING  ROUTINE  IS  BEIHO  USED,  INDICATE 

0242 

cm 

THAT  PLATE  MP  DOES  NOT  SHADOW  SOURCE 

0243 

cum  IF(LSTS)  LSTD(MP)-. FALSE 

0244 

60 

CONTINUE 

0246 

61 

IF(.NOT.LTEST)  CO  TO  62 

0246 

WRITE(6,63) 

0247 

63 

FORMAT (/, '  TESTING  PLAINT  SUBROUTINE'} 

0248 

WRITE(6, *)  XIS 

0240 

WRITE(6, *)  D 

0260 

WRITE(6. *)  DHIT, MH. LHIT 

0261 

62 

RETURN 

0262 

END 
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SUBROUTINE  SCAN 


This  subroutine  rasterizes  a  line  in  the  character  buffer  according  to  its  shading  require¬ 
ments.  It  calls  routines  to  determine  if  a  given  point  is  shadowed  or  not  and  uses  this 
information  to  shadow  the  given  geometry.  The  fill  character  is  used  to  fill  the  line  in. 

0001  C . . . 

0003  SUBROUTINE  SCAN  (  OBJ,  LINE,  PHII,  FILL,  TYPE  ) 

0003  CHI 

0004  Clll  Thli  eubroutine  "raeterizei"  a  line  la  tha  character  buffer 
0006  CHI  according  to  lte  ehadlng  requirement! . 

0000  Clll  The  fill  character  le  need  to  fill  the 

0007  Clll  llae  la.  The  line  la  declared  lar(er  character  etrlng  la  thle 

0008  Clll  eubroatine  than  la  tha  calling  routine.  Thle  caa  be  ’hardwired" 

0000  Clll  If  It  caueee  problem!  oa  other  uMchlnee. 

0010  Clll 

0011  INCLUDE  'SHACOM.FOR' 

0177  CHARACTER*  600  LINE 

0178  CHARACTER* 1  FILL 

0170  INTEGER  PTR,  OBJ 

0180  INTEGER  LSTPTR 

0181  INTEGER  SCANC 

0183  INTECER  SPA1IC 

0183  INTECER  PHII 

0184  INTEGER  TYPE 

0186  REAL  DHIT 

0188  REAL  D(3) 

0187  REAL  DP(3) 

0188  REAL  XIS(3) 

0180  REAL  THETA, PHI 

0100  LOGICAL  EOL 

0101  LOGICAL  LHIT,  LHIT1 

0103  C0M40H  /SCHCMN/  PTR.  EOL 

0103  Clll 

0104  CHI  Initialize  local  varlablea. 

0106  CHI 

0108  PTR  -  1 

0107  LSTPTR  •  1 

0108  EOL  »  PTR  CT.  COLS 

0100  Clll 

0300  CHI  Until  the  end  of  the  llae  la  acanned  do  . . . 

0301  CHI 

0303  100  IF  (NOT.  EOL)  THEN 

0303  C! 1 1 

0304  Clll  Locate  the  flret  occurence  of  CHAR  7,  8,  or  EOL. 

0306  Clll 

0308  PTR  •  SCANC (  LINE  ) 

0307  Cl  1 1 

0308  Clll  If  plaint  eaye  it ’a  a  min,  update  the  laet-polater,  apan,  ecan, 

0300  Clll  fill.  Otherwlie,  fill  la  the  character!  between  the  pointere. 

0310  Clll  Define  the  "aource  point"  AS  the  location  of  the  antenna, 

0311  Cl  1 1  aad  aee  If  our  plate  ahadowu  tha  direction  of  the  midpoint  of  the 
0313  Clll  ecan. 

0213  Cl  1 1 

0314  THETA  -  (0. 6"FL0AT (PTR* LSTPTR) -1  0)"RESTH*THET1 

0316  PHI  ■  (PHII-1)"RESPH*PH1 

0318  DP(1)  •  SIN (THETA) "CDS (PHI) 

0317  DP(2)  -  SIN (THETA) "SIN (PHI) 

0318  DP (3)  •  COS (THETA) 

0310  D(l)  -  DP ( 1 ) * VPC (1,1)  *  DP(2)"VPC(3,i)  *  DP(3)"VPC(3, 1) 
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0230 

0(2)  ■  DP(1)*VPC(1,2)  ♦  0P(2) *VPC(2,2)  ♦  DP(3)*VPC(3,3) 

0221 

0(3)  ■  DP(1)*VPC(1,3)  4  DP(2)*VPC(2,3)  «  DP(3)»VPC(3,3) 

0222 

cm 

0223 

cm 

Thia  net  be  don*  da*  to  tb*  b*kavlor  of  plaint  modifying  XIS. 

0234 

cm 

0326 

118(1)  •  ANTENN(l) 

0226 

118(2)  ■  INTEND (2) 

0227 

118(3)  «  ASTENN (3) 

0236 

cm 

0230 

cm 

No*  do  a  co«*  dapandlng  on  vhat  typo  of  objoet  w*  toat  for 

0230 

cm 

■hod owing. 

0231 

cm 

0232 

cm 

1  *  plat* 

0233 

cm 

2  ■  alllptlc  cylinder 

0234 

cm 

0236 

0070  (1.2)  TTPE 

0236 

cm 

0237 

cm 

Ik*  objact  1*  a  plat*. 

0238 

cm 

0230 

i 

CALL  PLAINK  US.  0.  DHII,  -OBJ.  LH1T  ) 

0240 

GOTO  000 

0241 

cm 

0243 

cm 

Th*  objact  1*  a  cylinder.  Taat  andcap*  and  cyllndar  bodiaa. 

0243 

cm 

0244 

2 

CALL  CAPINT(  IIS,  0.  DH1T.  0.  LB1T1,  -OBJ  ) 

0346 

IF  (NOT.  LHIT1)  CALL  CTLINT(1IS,0.DHII,  LH1T,  .FALSE.,  -OBJ) 

0346 

LHII  *  LHII  .08.  LH1T1 

0247 

GOTO  000 

0248 

cm 

0240 

cm 

Taka  tb*  approprlata  action  in  tha  bnffar. 

0360 

cm 

0261 

000 

IF  (  HOT.  LHIT  )  THEN 

0262 

LSTPTR  -  PTR 

0263 

PTR  -  SPANCC  LINE  ) 

0264 

DO  300  LSTPTR  «  LSTPTR,  PTR-1,  l 

0266 

LINE(  LSTPTR: LSTPTR  )  *  FILL 

0266 

300 

CONTINUE 

0267 

LSTPTR  «  PTR 

0268 

ELSE 

0260 

PTR  -  SPAHC (  LINE  ) 

0260 

DO  400  LSTPTR  «  LSTPTR,  PTR-1 .  1 

0261 

LINE(  LSTPTR: LSTPTR  )  -  FILL 

0262 

400 

CONTINUE 

0263 

LSTPTR  •  PTR 

0264 

END  IF 

0366 

cm 

0366 

cm 

End  UNTIL 

0267 

cm 

0268 

GOTO  100 

0260 

END  IF 

0270 

cm 

0371 

RETURN 

0272 

END 
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FUNCTION  SCANC/SPANC 


These  functions  are  used  to  scan  through  the  character  buffer  (map  array)  and  lo¬ 
cate/skip  certain  characters.  They  return  the  positions  of  these  characters  as  their  result. 


Th*  following  function*  *p*n/*c*n  churactar*.  That  la.  thay 
raturn  th*  poaition  of  next  charactar  in  LINE  which  doaa  or  do** 
not  Batch  th*  *p*cficl*d  charactar.  They  alao 
tarmlnat*  th*  acan/apan  at  tha  and  of  th*  lin* 


INTEGER  FUNCTION  SCAHC(  LINE  ) 

INCLUDE  ‘SHACOM. FOR' 

CHARACTER* (*)  LINE 
INTEGER  PTR 

LOCICAL  EOL 

COMMON  /SCHCMN/  PTR.  EOL 

Until  •  charactar  Batching  CHARAC  la  found,  advanc*  th*  pointer. 


SCANC  -  PTR 

IF  (HOT.  (EOL  OR. 

♦ 

SCANC  *  SCANC  *  1 
EOL  -  SCANC  CT  COLS 
GOTO  200 
ENDIF 

End  UNITL 

RETURN 

END 


(  LINE (SCANC. SCANC)  Eq.  CHAR(T)  )  ))  THEN 


INTEGER 

FUNCTION  SPANC(  LINE  ) 

INCLUDE 

'SHACOM.FOR* 

CHARACTER* (*)  LINE 
INTEGER 

PTR 

LOGICAL 

EOL 

COMMON  /SCNCMN/  PTR, 

EOL 

cm 

cm 

Until  a  charactar  NOT 

Batching  ASCII  7  i*  found, 

advance  th* 

Cl !  1 

pointer. 

cm 

SPAHC  «  PTR 

200 

IF  (.NOT.  (EOL  .OR. 

4 

(  LINECSPANC: SPANC)  .HE. 

CHAR (7)  )  ))  THEN 

SPANC  «  SPA1IC  ♦  i 

EOL  >  SPAHC  .CT.  COLS 

GOTO  200 

ENDIF 

cm 

cm 

End  UNITL 

cm 

RETURN 

SUBROUTINE  WRTOUT 


This  subroutine  produces  formatted  and  binary  output  of  the  shadow  map. 


0001 

c— 

0002 

SUBROUTINE  WRTOUT 

0003 

INCLUDE  ‘ SHACOM . FOR ’ 

0169 

INTEGER  I,  J,  COL I,  COLF 

0170 

cm 

0171 

cm 

This  subroutine  writes  the  fornatted  output  buffer  to  tbe  output 

0173 

Cl ! ! 

file.  Start  the  output  on  a  nan  page,  and  calculate  a  header 

0173 

cm 

baaed  on  the  specified  pixel  resolution. 

0174 

cm 

0176 

cm 

Unit  7  le  the  Min  (ASCII)  output  file. 

0176 

cm 

0177 

cm 

Inltillze  the  width  of  the  sap  to  be  printed. 

0170 

cm 

0179 

COL I  «  1 

0100 

COLF  *  91 

0101 

IF (COLF  .CT.  COLS)  COLF  •  COLS 

0102 

cm 

0103 

cm 

Print  nap. 

0104 

CM! 

0106 

30 

WRITE(  7.  100  )  (  AHTEHH(I) ,  I«l.  3.  1  ).  INPFIL 

0100 

WRITE (  7.  200  )  (  (RESTH* ( I - 1 )  ♦  THET1)*DPR  .  I«  CQLI,  COLF.  10) 

0107 

WRITE!  7,  260  )  (  I«  COLI,  COLF.  10) 

0100 

DO  60  J  «  1.  ROWS 

0100 

60 

WRITE!  7.  300  )  (  RESPH* ( J - 1 )  ♦  PHI  )*DPR, 

0190 

♦  (  OUTBUF(I.J),  I«  COLI.  COLF  ) 

0191 

cm 

0192 

cm 

If  the  nap  does  not  fit  on  the  line  printer  width. 

0193 

cm 

than  split  It  onto  another  eat  of  pages. 

0194 

cm 

0196 

IF(C0LF  LT.  COLS)  THEN 

0190 

COLI  «  COLF 

0197 

COLF  -  COLF  ♦  90 

0190 

IF (COLF  CT.  COLS)  COLF  «  COLS 

0190 

CO  TO  20 

0200 

END  IF 

0201 

cm 

0202 

cm 

Have  Internal  paraaeters  available  In  degrees. 

0203 

cm 

0204 

THET1D  «  THET1  »DPR 

0206 

THET2D  «  THET2  *DPR 

0200 

RESTHD  •  RESTH  ‘DPR 

0207 

PH1D  •  PHI  «DPR 

0200 

PH2D  «  PH2  *DPR 

0209 

RESPHD  «  RESPH  *DPR 

0210 

cm 

0211 

cm 

Unit  10  le  a  generic  sort  ef  bleary  output  which  can  bo  plotted 

0212 

cm 

anywhere.  Place  a  little  header  Info  at  the  front  ef  the  file. 

0213 

cm 

0214 

WRITE(  10  )  COLS,  THET1D,  THET2D,  RESTHD 

0216 

WRITE(  10  )  ROWS,  PH ID,  PH2D,  RESPHD 

0210 

cm 

0217 

cm 

Diap  only  that  part  of  the  buffer  which  pertains  to  thle  plot. 

0210 

cm 

0219 

DO  10  J  ■  1,  ROWS 

0220 

DO  10  I  >  1,  COLS 

0221 

10 

WRITE  (10)  0UTBUF(  I,  J  ) 

0222 

cm 
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0333 

CM! 

Output  stuff  la  csapluta. 

0334 

CM! 

0336 

RETURN 

0336 

Cl  1 1 

0327 

CM! 

Foraut  atataaanta . 

0338 

CM! 

0239 

100 

FORMAT!  '1',  81.  ‘ANTENNA  (RCS)  ■  ',  '{'.  2(F8.4, 

0330 

♦  F8  4,  '  )  IN  METERS' ,  6X,  'INPUT  SET:  442,  /  ) 

0331 

300 

FORMAT (  TOO.  'THETA  (DECREES)'./,  OX,  11(  4X.  F«  2)  ) 

0233 

360 

FORMAT (  9X,  'PHI'.  4X,  A.  10(  91,  A)  ) 

0333 

300 

FORMAT (  «X,  F7.2,  31.  101A  ) 

0334 

END 
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Include  file 

This  is  a  listing  of  the  common  blocks  and  parameter  statements  contained  in  the  single 
include  file  for  SHADOW.  Note  that  the  include  file  appears  in  the  compiler  listing  for  the 
interactive  service  routines. 

cm 

Cl ! I  COMMON  declaration!. . . 

CHI 

COWON  /PIS/ 

♦  PI. 

♦  IPI, 

♦  DPR. 

♦  RPD 

cm 

C-*«*  MAXIMUM  DIMENSION  FOR  PLATES 
INTECER  NPX 

PARAMETER  (HPX=76) 

C***  MAXIMUM  DIMENSION  FOR  PLATE  EDGES 
INTEGER  HEX 

PARAMETER  (HEX- 12) 

C««*  MAXIMUM  DIMENSION  FOR  CYLINDERS 
INTEGER  NCX 

PARAMETER  (HCX»6) 

C ♦♦♦  MAXIMUM  DIMENSION  FOR  CYLINDER  RIMS 
INTEGER  NNX 

PARAMETER  (H11X*10) 

MAXIMUM  DIMENSION  FOR  ROWS  (PHI) 

INTEGER  MAXROV 

PARAMETER  (MAXR0W*3«1) 

C***  MAXIMUM  DIMENSION  FOR  COLUMNS  (THETA) 

INTEGER  MAXCOL 

PARAMETER  (MAICOL-lOl) 

cm 


COMMON 

/CEOPLA/ 

♦ 

XX 

(3. HEX, NPX), 

4 

V 

(3.NEX.NPX), 

♦ 

VP 

(3, HEX, NPX) , 

4 

VH 

(3. NPX), 

♦ 

MEP 

(NPX) , 

4 

cm 

MPX 

COMMON 

/CEOMEL/ 

4 

AC 

(NNX. SCI), 

4 

BC 

(NNX. NCX). 

4 

ZC 

(NNX. NCX), 

4 

TCR 

(HnX.NCX), 

4 

XCL 

(3, NCX), 

4 

VCL 

(3, 3, NCX). 

4 

NEC 

(NCX) , 

4 

MCX 

cm 

COWON  /EDMAG/  VMAO(NEX.NPX) 

cm 

COWOH  /SHADVN/  COLS,  RONS.  ANTENN(S)  ,CTR0ID(3) . 

♦  MP.ME.NEITME.MC, 

♦  THET1 ,THET2,PH1,PH2,IESTH,RESPH, ALPH, 

♦  0NIT(3),TRSO)  ,VIS(S, 3), IONII.URITF, UNITS, ON 

♦  THZP , PHZP . IHXP , PHXP , FILPNM , FILCNM 
COWON  /SHADVC/  INPFIL, OOTBUF (MAXCOL. MAXROV) . 

♦  FILCBC.FILCHP.FILC8R 

cm 

COWON  /PATCUT/  VPC(3,3) 

cm 
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Cllt  The  flrat  eat  of  daclaratlone  la  tha  atuff  la  /SHADOW/  coauon  bloc 

cm 

IHTECER 

♦  HP,  ME,  HEX THE,  MC, 

Cl  Platef/edgef/cyl#  varlablaa. 

♦  FILPHN,  FILCHM, 

Cl  Plata  and  eyl  aaabari  for  apaclal  filling 

♦  COLS, 

Cl  Tha  alia  of  tha  array  aabaactloa  datanalaad 
4  HOWS 

Cl  by  lataraal  raaolatioa  raqairaaanti . 

REAL 

♦  CTR01D, 

Cl  A  geometric  caatar  of  tha  object  la  quaatlon. 

♦  ANTEHN, 

Cl  Tha  aataaaa  locatioa  la  Raf  Coord.  Syntaa. 

♦  THET1, 

Cl  Tha  lover  thata  aad  of  tha  ranga. 

♦  THEM, 

Cl  Tha  higher  thata  and  of  tha  raaga. 

♦  PHI, 

Cl  Tha  lowar  phi  and  of  tha  ranga. 

♦  PH2, 

Cl  Tha  hlghar  phi  and  of  tha  ranga. 

♦  RESTH, 

C!  Tha  daalrad  thata/phl  raaolatioa 

♦  RESPH, 

Cl  la  nalta  of  radlaaa/plxal . 

«  ALPH 

Cl  Maximum  allowed  aagalar  axcuraloa. 

CHARACTER 

♦  0UTBUF*1, 

Cl  Tha  output  buffer  which  la  displayed. 

♦  IHPFIL»S3, 

Cl  Tha  filename  of  tha  Input  eat. 

♦  FILCHC, 

Cl  apar.lal  fill  character  for  cylladara 

♦  FILCHP, 

Cl  apaclal  fill  character  for  everything  alaa 

♦  FILCHR 

Cl  apaclal  fill  character  for  plataa 

DATA  FILCHC.  FILCHP,  FILCHR  /  'C,  'P\  'X'  / 

Clll 

Clll  From  tha  /PIS/  C0M40H  block. . . 

cm 

REAL  PI.  TPI,  DPR,  RPD 

Clll 

Cl  1 1  From  tha  /CEOPLA/  COWON  block. .  . 

Clll 

IWTEGER 
«  MEP, 

Cl  Humber  of  adgoa  par  plate 
«  MPX 

Cl  Total  aombar  of  plataa 
REAL 

♦  IX. 

Cl  Tha  array  of  plate  coraare 

♦  V. 

Cl  Edge  unit  vactora 

♦  VP, 

Cl  Edge  unit  blnormala 

♦  VH 
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Ct  Unit  normal  for  aaek  plat* 

cm 

cm  Frca  tk*  /CEOMEL/  COMMON  block.  . . 

cm 

INTEGER 

♦  NEC, 

Cl  Naabar  of  aactlon*  par  cylinder 

♦  MCI 

Cl  Total  naabar  of  cylindar* 

SEAL 

♦  AC. 

Cl  Elliptic  paraaatar  along  x-axla 

♦  BC. 

Cl  Elliptic  paraaatar  along  yaxla 

♦  ZC, 

Cl  Cylindar  andcapa  in  cyl  coord  ay* 

♦  ICR, 

Cl  Angle  andeap  aakaa  alth  poaltlv*  s  axla 

♦  XCL, 

Cl  Cyl  coord  ay*  origin 

♦  VCL 

Cl  Definition  of  cyl  coord  aya 
Cl 

INTEGER 

♦  1DNIT 
REAL 

♦  OIIITF, 

♦  OllIIS. 

♦  OH ITU. 

♦  OHIT, 

♦  TRS, 

♦  THZP , PHZP , TRIP . PHXP , 

♦  VRS, 

•*  VPC, 

♦  VMAG 

DATA  UNIT/1. .3046.0.0364/ 

Cl 

cm* 

Clll  The  following  eonaon  block  1*  for  VMS/SMCt  aoftwar*  only. 

cm 

INTEGER  EBDID,  KETTBL 

COMMON  /TERCOM/  EBDID,  KETTBL 

Cl  1 1- 
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10.4  Non-FORTRAN  VAX/VMS  source  files 

This  section  contains  listings  of  the  source  files  used  by  the  interactive  code  which  are  not 
written  in  fortran.  They  are  used  by  the  interactive  interface  and  are  needed  only  by  the 
VMS  utilities. 

CDU  Source  file 

This  file  is  the  source  input  for  the  Command  Language  Definiton  Utility  (CDU)  which 
defines  the  available  interactive  commands. 

i** 

i 

I  File:  SHACMD.CLD  Edit:  AAA1001 
I 

MODULE  COKMAND. TABLES 
I DENT  /SHACMD  01-001/ 

I* 

I  FACILITY :  Shadow 
I 

I  ABSTRACT: 

I 

t  Thl»  la  tho  ccaauiand  language  daflnlton  aonrce  Tor  tho  SHADOW 
I  program  It  daTlnae  tho  lntaraetiva  coanand  lntorfaco  under 
!  tho  VAX/VMS  operating  ayatea. 
t 

I  AUTHOR:  Laaxlo  Takaea 
I 

I  CREATED:  1-N0V-108E 
I 

I  MODIFIED  BT: 

I  1-000  -  Original  AAA  1-N0V-1885 

I  1-001  -  Laaxlo  Takaea  30-DEC-108S 

I  Addad  anpport  Tor  tha  SET  FILL  eoaaaand  and  raarrangad 

1  tha  SET  PLATE  and  SET  CTL1WDER  comaanda 

I- 

I 

I  Show  ayntax 
I 

DaTlaa  ayntax  ahoa.Tll.ayntax  routine  ahow.Tll 

DaTlna  ayntax  ahow_out_ayntax  rontlna  a how. out 

DaTlna  ayntax  ahow.lnp.ayntax  rontlna  ahow.lnp 

DaTlna  ayntax  ahow.ani.ayntax  rontlna  ahow.unl 

DaTlna  ayntax  ahow.ant.ayntax  rontlna  ahow.ant 

DaTlna  ayntax  ahow_coo_ayntax  rontlna  ahow.eoo 

DaTlna  ayntax  ahow.pat.ayntax  rontlna  ahow.pat 

DaTlna  ayntax  ahow_aca_ayntax  rontlna  ahow.aca 

DaTlna  ayntax  ahow.wln.ayntax  rontlna  ahow.wln 

DaTlna  ayntax  ahow.kay.ayntax  rontlna  ahow.kay 

I 

I  Sot  ayntax 
t 

DaTlna  ayntax  aat.ant.ayntax  rontlna  aot.ant 
DaTlaa  ayntax  aet.coo.ayntax  rontlna  aat.eoo 
DaTlna  ayntax  eet.pat.ayntax  rontlna  aat.pat 
DaTlaa  ayntax  aet.oca.ayatax  rontlna  aet.aca 
DaTlaa  ayntax  aat.wln.ayntax  rontlna  aat.nln 
DaTlaa  ayntax  aet_key_eyatax  roatlna  aatjtay 
DaTlaa  ayntax  aat.ont.ayatax  rontlna  not. out 
paraaatar  pi  ralna(  required  ) 
parameter  p2  valao(  type*$Tile,  required  ), 
prapta'IUaaaaa1 
qaallTlar  plot table,  deTauXt 
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qualifier  printable,  batch 
qualifier  echoing,  default 


Define  eyatax  eet.lnp.eyntax  routine  eet.lap 
parameter  pi  valuo(  required  ) 
parameter  p2  value!  type*fflle,  required  ), 
prompt**lnput  eet* 

Define  ayntax  eet.f ll.eyntax  routine  aet.fil 
parameter  pi  value(requlred) 

parameter  p2  value(dafault**X*) .prompt* "character* 
qualifier  plate  value(reqoired,llet) ,  nonnegatable 
qualifier  cylinder  value (required, lilt) ,  nonnegatable 
qualifier  aequantlal  aonnegatable,  eyntax** equential 
dlaallow  any2  (  plate,  cylinder,  eequential  ) 

Define  eyntax  eequential  routine  aet.fil 
parameter  pi  value (required) 

I  aoquallflere 

IDeflne  eyntax  eet.pla.eyntax  routine  net.pla 
I  parameter  pi  value(  required  ) 

I  parameter  p2  value(  required  ),  prompt**plato  number* 

I  parameter  p3  value (  default**?"  ),  prompt**character" 

I  qualifier  all  eyntax*aat.placyl.all 

IDeflne  eyntax  eet.cyl.ayntax  routine  aat.cyl 

I  parameter  pi  value(  required  ) 

I  parameter  p2  valua(  required  ),  prompt**cyl  number* 

I  parameter  p3  valuef  default**C*  ),  prempt**charactar* 

I  qualifier  all  ayntax*aet_placyl_all 

Define  eyntax  eet.placyl.all 

parameter  pi 

parameter  p2  value!  default**!*  ) 

Define  ayntax  eet.unl. eyntax 

parameter  pi  value (  required  ) 

parameter  p2,  value!  required,  type*unlta.typee  ), 

promp t**lnchee ,  feet,  or  meter* “ 

Define  ayntax  aet_tal_mater*_ayatax  routine  oat_ual_meter* 
Define  ayntax  aet.unl.lnchen.eyntax  routine  aet.unl.lnche* 
Define  ayntax  eet.unl.feet.eyntax  routine  aet.unl.feet 
I 

I  Type  deflaltene. 

I 

Define  type  unlte.typaa 

keyvord  lachee,  ayntax  *  eet.ual.lnckee.eyntax 
keyword  mater* ,  ayntax  ■  *et.ual_mater*.*yntax 
keyword  feet,  ayntax  ■  aet.uni.feet.eyntax 

Define  type  eet.typea 

keyword  flll.ckaractor,  ayntax  ■  aet.fil. eyntax 
I  keyword  plate,  eyntax  *  *et_pla_ayntax 
I  keyword  cylinder,  ayntax  ■  net.eyl.eyntax 

keyword  eutput.devlce,  ayntax  ■  eet. out. eyntax 
keyword  laput.aet,  ayntax  ■  eet.lnp.eyntax 
keyword  aalta,  ayntax  ■  eet.unl. eyntax 
keyword  aateaaa.lecatlen,  eyntax  ■  eet.ant.iyatax 
keyword  ceerdlaata* ,  ayntax  ■  net.cee.ayutax 
keyword  pattern. cut ,  eyntax  ■  eet. pat. eyntax 

keyword  ecale.f actor,  eyatax  ■  eet.eca.iyntax 
keyword  window ,  eyatax  ■  eet .win. eyntax 
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keyword  kaypad.aode,  syntax  ■  eet.key.syntux,  negstsble 


Define  type  show.types 

keyword  flll.character,  syntax  •  ahow.f ll.syntax 
I  keyword  plate,  syntax  ■  ehow.f ll.syntax 
I  keyword  cylinder,  syntax  *  ahow.f ll.eyntax 

keyword  ootpnt.devica,  syntax  ■  show. out. syntax 
keyword  inpnt.set,  syntax  ■  show.lnp. syntax 
keyword  anlts,  syntax  *  show.uni.syntax 

keyword  antenna.location,  syntax  *  ehow.ant. syntax 
keyword  coordinates,  syntax  *  ehow.coo.eyntax 

keyword  pattern.cnt,  ayntax  *  show.pat.syntax 

keyword  acale.f actor ,  syntax  *  show. sea. syntax 

keyword  window,  syntax  *  show.wln.syntax 
keyword  keypad _aode,  syntax  «  show.key.syntax 

I 

)  Verb  deflnltone. 

I 

Define  verb  eat 

paraaeter  pi,  value (  required,  typa>set.types  ), 
proapt  ■  'Set  shat' 

Define  verb  show 

paraaeter  pi,  value!  required,  type«show. types  ), 
proapt  ■  'Show  what* 

Define  verb  help  routine  help.conand 

paraaeter  pi,  value!  type'treat.of.llna  ) 
qualifier  library,  label  ■  halpllb,  default, 
value!  defaulta'eyatdlsk: [] shadow*  } 

Define  verb  spawn  synonym  del 
synonym  I  routine  dcl.cosnand 
paraaeter  pi,  value!  type*!rest_of_llne  ) 

Define  verb  exit  routine  exlt.coasand 

Define  verb  ahadow  synonym  s  routine  ehadow.coauand 

I 

I  End  of  file  SHACMD.CLD. 

1 

I-- 


Keypad  initialization  file 

This  file  defines  the  initial  keypad  assignments  for  the  interactive  program  at  run  time.  It 
may  be  modified  to  allow  customizing  of  the  keypad  interface. 


I  SHADOW . (PD  - 
I 

I  Thla  file  atarta  ap  tha  keypad  definition*  for  tha  SHADOW 
I  program.  Tkla  la  a  aaer-def lnable  flla  and  may  be  altarad. 
I 

I  Laaalo  Takaea,  20-DEC-19BS 

|« 

I 

I  Sat  ap  tka  COLD  kay. 

1 

Daf/key/noecho  PF1  •*  /lfwdefaalt  /aot-gold 

Daf/kay/aoaeho  PF1  •“  /if "gold  /aet«defaalt 

I 

I  Halp  •  Shadow 
I 

Def/key/tera/echo  PF2  “Halp* 

Def/key/tera/echo  PF3  “Shadow* 

I 

I  Sat  ap  tha  tcggla  keypad -mode  kay. 

I 

Daf/kay/tara/acko  PF4  “Sot  keypad’  /if«default 
Dof/kay/tara/ocho  PF4  “Sat  Hokaypad*  /if "gold 

I 

I  Daflaa  alacallanaoaa  kay a 
I 

Def/key/echo/lf«defaalt  KPT  “Sat  aatpat  ■ 
Daf/kay/acko/lfwdafaalt  KPS  “Sat  lapat  • 
Dof/kay/echo/lf«defaalt  IM  “Sat  aataaaa*  /taralaata 
Daf /kay/acho/lfwdafaalt  MINOS  “Sat  aladoa*  /taralaata 
Daf/koy/acko/lf>dafaalt  KPA  “Sat  acala.faetor’/taraiaa 
Daf/kay/acko/lfwdafaalt  IPS  “Sat  aalta*  / taralaata 
Daf/kay/acko/lfwdafaalt  KPS  “Sat  csordliat a* /taralaata 
Daf/kay/acko/lfwdafaalt  CWSU  “Sat  pattara*  /taralaata 
Daf/kay/acko/lfwdafaalt  KP1  “Sat  fill  * 

Daf/kay/acko/lfwdafaalt  KPS  “Sat  fill  /plata-U.X)  > 

Daf/kay/acko/lfwdafaalt  KPS  “Sat  fill  /Saqaehtlal’/ter 
Daf/kay/acko/lfwdafaalt  KPO  “Spawa* 

I 

Daf/kay/acka/lfwgold  KP7  “Skoa  aatpat*  /taralaata 

Daf/kay/acko/lfwgald  KPS  “Skew  lapat*  /taralaata 

Daf/kay/acka/lfwgold  KPS  “Skoa  aataaaa*  /taralaata 

Daf/koy/acka/lfwgold  MINOS  “Skew  aladoa*  /taralaata 
Daf/kay/acko/lfwgald  KP4  “Skoa  acala.factor'/tarala 

Daf/kay/acko/lfwgald  KPS  “Skoa  aalta*  /taralaata 

Daf/kay/acko/lfwgald  KPS  “Skoa  caardlaata'/taralBata 

Daf/kay/acko/lfwgald  COWU  “Skoa  pattara*  /taralaata 
Oaf/kay/ocko/lfwgald  KP1  “Skoa  fill*  /taralaata 
Daf/kay/acka/lfwgold  KP3  “Sat  fill  /cylinder* (l.X)  ■ 

Daf/kay/acko/lf-gald  KPS  “Skoa  fill*  /taralaata 
Daf/kay/acko/lfwgald  KPO  *Spava  * 

» 

1  Katar  kay  la  earn*  aa  rot  an .  Period  la  Kill 
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» 

Daf/kay/tara/oeho  PERIOD  “Exit* 
Daf/koy/tara/ocho  ENTER  *« 

I 

I  End  of  SHADOW . KPD 
I- 
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Chapter  11 


VAX  Implementation 


This  chapter  describes  the  VAX/VMS  implemetation  of  the  shadow  program.  The  program 
has  been  split  into  two  parts  which  are  not  used  together.  When  the  computer  environment 
is  the  VAX/VMS  operating  system,  then  the  more  flexible  interactive  mode  described  in 
this  chapter  should  be  used.  Assuming  that  the  required  flies  have  been  properly  restored 
from  the  distribution  medium,  there  are  procedures  provided  to  accomplish  assembly  of  the 
code  with  minimum  user  effort. 


11.1  Assembling  the  Code 

On  a  VAX/VMS  computer  system,  the  following  files  are  required  to  build  and  use  the 

code.  Both  the  interactive  and  non-interactive  versions  of  the  code  can  be  run  in  any  of  the 

standard  VMS  ways,  that  is  interactively,  in  a  batch  queue  mode,  or  in  a  DCL  subprocess. 

The  actual  building  of  the  program  takes  place  by  invoking  the  procedure  SHABLD.COM. 

The  resulting  executable  file  SHADOW.EXE  can  then  be  run  with  the  RUN  command. 

SHABLD.COM  A  DCL  command  procedure  to  compile  and  link  the  files.  This  is  the 
main  assembly  command  file. 

SHACMD.CLD  A  VMS  Command  Language  Definition  file  used  define  the  interactive 
commands  available. 

SHACOM.FOR  The  one  include  file  for  the  code  common  blocks.  The  other  include 
statements  that  appear  in  the  code  reference  system  libraries. 

SHADNI.FOR  This  contains  the  alternate  code  that  is  to  be  used  when  a  non-interactive 
code  is  desired. 

SHADNW.FOR  This  contains  code  that  is  very  much  dependent  on  the  facilities  of  VMS 
and  has  been  seperated  as  such.  It  is  an  essential  part  of  the  interactive  program. 

SHADOW  .FOR  This  is  the  main  body  of  the  code  and  is  common  to  both  interactive 
and  non-interactive  versions.  It  is  standard  FORTRAN-77. 

SHADOW.HLB  This  is  the  VMS-format  help  library  containing  descriptions  and  exam¬ 
ples  of  interactive  commands. 
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SHADOW .KPD  This  is  an  initalization  file  used  by  the  interactive  program  to  equiva¬ 
lence  certain  functions  to  keys  of  the  user’s  choice. 

SHAPLT.COM  This  is  a  DCL  command  procedure  invoking  the  NCAR  graphics  plotting 
software. 

SHAPLT.FOR  This  is  the  FORTRAN  program  which  reads  the  output  produced  by  the 
code  and  calls  appropriate  NCAR  routines  to  make  a  plot. 

LABEL.DAT  This  file  is  read  by  the  SHAPLT  program  in  order  to  label  the  NCAR  plots. 

11.2  Running  the  Code 

In  order  to  run  the  code  on  VMS,  the  executable  file  created  by  the  SHABLD  procedure  is 

necessary.  The  program  is  then  run  with  the  del  RUN  command. 

A  typical  interactive  session  with  the  program  might  consist  of  the  following  elements 

in  their  approximate  order  of  execution. 

OUTPUT  FILES  Establish  a  set  of  output  files  with  the  SET  OUTPUT  command.  The 
output  files  are  of  three  types.  Using  the  qualifiers  of  the  SET  OUTPUT  command, 
any  desired  combination  of  output  files  may  be  generated. 

PROCESS  AN  INPUT  Issue  a  SET  INPUT  command  which  reads  the  geometry  from 
the  specified  file.  In  order  for  the  program  to  process  input  sets,  this  command  must 
be  issued  prior  to  any  mapping  commands.  This  command  is  usually  executed  once 
per  session. 

DEFINE  A  WINDOW  Using  the  SET  WINDOW  command,  establish  the  angular  range 
of  interest.  When  the  program  begins,  the  size  of  the  window  is  set  to  the  full  an¬ 
gular  extent  of  the  far-zone  sphere.  By  specifying  a  smaller  angular  range,  the  user 
examines  portions  of  the  geometry  in  greater  detail. 

DEFINE  A  SOURCE  With  the  SET  ANTENNA  command,  establish  the  location  of 
the  source.  This  command  is  one  of  the  more  frequently  entered  commands.  It 
applies  units  and  coordinate  transformations  that  apply  from  the  set  units  and  set 
coordinates  command. 

HIGHLIGHT  ITEMS  With  the  SET  FILL  command,  the  user  may  optionally  cause 
parts  of  the  geometry  to  be  marked.  This  very  usefull  command  may  be  executed  at 
any  time  before  a  SHADOW  command. 

GENERATE  A  MAP  Cause  the  generation  of  a  shadow  map  by  issuing  a  SHADOW 
command.  The  shadow  command  is  used  after  the  user  has  set  all  desired  parameters 
including  the  window  and  the  antenna  location.  Without  executing  this  command, 
the  code  does  not  calculate  any  shadowing. 

REPEAT  ANY  OF  THE  ABOVE  Perform  one  or  more  of  the  above  actions  repeat¬ 
edly  to  obtain  several  maps.  Most  of  the  commands  above  may  be  executed  in  any 
order  provided  that  the  SHADOW  command  is  executed  last. 
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EXIT  Terminate  the  shadow  session  with  an  EXIT  command.  An  acceptable  alternate 
mode  of  exit  is  eof,  or  control-Z. 

In  order  to  make  life  easier  by  reducing  the  number  of  keystrokes  required  to  enter  inter¬ 
active  commands,  a  facility  is  provided  with  which  the  user  may  associate  whole  command 
strings  with  a  single  key.  When  the  shadow  program  begins  executing,  it  loads  a  set  of 
predefined  key  definitions  from  a  file.  The  user  may  edit  this  file  to  customize  the  keypad 
definitons  to  his/her  liking.  Since  the  file  is  loaded  automaticly,  the  only  restriction  on  its 
use  is  that  it  must  exist  in  the  current  process  default  directory  and  must  be  accessible  at 
run  time.  The  details  about  these  interface  routines  and  what  they  do  may  be  found  in  the 
VAX/ VMS  Runtime  Library  Reference  Manual. 

11.3  Modifying  the  code 

Modifications  to  the  source  code  by  the  user  can  be  performed,  but  of  course  the  out¬ 
come  cannot  be  predicted  beforehand.  One  predictable  user  modification  is  changing  the 
program’s  PARAMETER  statements  in  the  include  file  SHACOM.FOR.  This  would  be 
necessary  (and  sufficient)  to  allow  the  program  to  deal  with  a  greater  number  of  plates  or 
to  construct  a  shadow  map  with  greater  resolution  than  the  current  maximum. 
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Chapter  12 


Non- VAX  Implementation 


This  chapter  discusses  how  to  implement  the  code  on  a  different  computer  than  a  VAX.  The 
obscuration  code,  SHADOW,  has  been  separated  into  two  main  parts.  The  FORTRAN  77 
part,  is  not  VAX  dependent  and  is  contained  in  a  file  called  SHADOW. FOR.  Most  of  the 
rest  of  the  files  are  VAX  dependent  and  are  used  mostly  for  interactive  features.  Although,  it 
is  possible  that  other  types  of  machines  will  have  similar  routines  that  will  allow  interactive 
manipulation,  it  is  not  possible  here  to  suggest  how  this  may  be  accomplished.  It  is  assumed 
that  the  easiest  way  to  use  SHADOW  on  a  non- VAX  would  be  to  run  it  in  a  non-interactive 
mode. 

The  main  program  in  the  default  version  of  the  file  SHADOW. FOR  is  designed  to  be 
used  with  the  non-FORTRAN  77  interactive  version.  A  file  called  SHADNI.FOR  contains 
a  main  program  designed  to  be  used  in  a  non-interactive  mode.  It  is  listed  in  section  10.2. 
The  main  programs  can  be  easily  exchanged. 

Note  that  the  only  other  part  of  the  code  is  this  part  that  is  non-FORTRAN  77  is  the 
INCLUDE  statement.  This  has  been  retained  because  many  computer  systems  support 
this  statement.  It  is  used  to  include  the  lines  of  code  in  the  named  file  in  the  spot  that 
it  is  called  as  if  the  lines  had  been  in  that  spot.  It  provides  a  powerful  means  of  putting 
commonly  defined  parameters  used  throughout  the  code  in  one  place.  In  this  case,  it  is  used 
to  include  the  file  SHACOM.FOR  which  contains  COMMON  blocks  and  PARAMETER 
statements  that  define  the  dimensions  of  arrays  that  store  the  geometry.  If  it  is  desired  to 
increase  the  number  of  plates,  edges  per  plate,  cylinders,  or  rims  per  cylinder,  etc;  they 
can  be  changed  in  one  spot.  Please  see  the  listing  for  this  file  elsewhere  in  this  manual. 
The  INCLUDE  statement  can  be  easily  removed  by  hardwiring  the  contents  of  the  file 
SHACOM.FOR  into  the  text  at  the  main  program  and  the  subroutines  ABSCIN,  CAPINT, 
CYLINT,  CYLROT,  DOCYLS,  DOCYL,  DOPLAS,  DOPLA,  GEOM,  INITGF,  PLAINT, 
SCAN,  SCANC,  SPANC,  and  WRTOUT. 

The  code  can  now  be  compiled,  linked,  and  run.  The  user  communicates  with  the  code 
through  the  non-interactive  commands.  This  allows  almost  the  same  capability.  The  only 
information  that  does  not  have  a  command  to  change  its  behavior  is  the  fill  options  and  the 
input  and  output  file  names.  The  fill  options  can  be  accessed  through  the  main  program. 
The  listing  below  has  comment  lines  referring  to  the  place  that  the  fill  operations  may  be 
changed. 

The  input  and  output  files  can  be  named  using  assignments  to  the  logical  unit  numbers 
for  the  given  operation.  The  input  file  is  read  on  logical  unit  #5.  The  echo  file  is  written 
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on  logical  unit  #6.  The  printable  shadow  map  is  written  on  logical  unit  #7.  The  plottable 
shadow  map  is  written  on  logical  unit  #10.  On  a  VAX  the  ASSIGN  VMS  command  would 
be  used. 

Note  that  the  user  can  specify  more  than  one  source.  The  non-interactive  operation  will 
run  a  shadow  map  for  each  source  individually.  The  receiver  will  not  be  counted.  If  the 
user  wants  to  look  at  the  shadow  map  for  a  receiver,  they  should  be  treated  in  this  code  as 
if  they  are  a  transmitter  (source). 
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Chapter  13 


NCAR  Plot  Program 


The  shadow  map  can  be  plotted  using  graphical  means.  The  SHADOW  code  will  write  a 
unformatted  file  that  can  be  used  for  interfacing  to  special  purpose  plotting  programs.  It 
writes  this  file  on  logical  unit  #10.  In  the  interactive  mode  the  file  name  is  specified  by 
using  the  SET  OUTPUT  commands  /PLOTTABLE  option.  In  the  non-interactive  mode 
the  file  name  is  specified  using  an  assign  statement. 

There  are  many  ways  to  plot  the  resulting  shadow  map.  Presently,  there  is  little  stan¬ 
dardization  between  system  for  plotting.  This  may  change  with  the  advent  of  GKS,  but 
for  now,  it  can  not  be  assumed  that  different  organizations  have  compatible  plotting  capa¬ 
bilities.  This  chapter  suggests  one  possible  means  to  plot  the  output.  It  uses  the  National 
Center  for  Atmospherics  Research  (NCAR)  graphics  package  [5].  It  has  been  tried  on  The 
Ohio  State  University  ElectroScience  Laboratory’s  computer  system  and  NASA  Langley 
Research  Center’s  computer  system,  both  VAX  ll/780s,  with  almost  the  same  results.  It 
is  still  not  possible,  however,  to  assume  that  it  will  run  everywhere  the  same  way. 

The  program  is  listed  for  the  convenience  of  possible  users,  knowing  that  some  conversion 
may  be  necessary.  The  code  is  written  in  basic  NCAR  subroutine  calls.  Consult  your  local 
system  information  on  how  to  link  to  your  systems  NCAR  graphics  subroutines.  In  addition, 
it  is  not  written  completely  in  standard  FORTRAN  77.  There  are  a  few  VAX  extensions 
used,  such  as  some  of  the  options  in  the  OPEN  subroutine  and  some  comment  lines  use  the 
non-standard  exclamation  point.  These  changes  will  be  minor. 

Note  that  the  plot  of  the  shadow  map  will  have  grid  lines.  There  is  another  option  given 
for  a  map  without  grid  lines.  This  can  be  used  by  commenting  out  the  call  to  subroutine 
GRIDL,  and  uncommenting  the  call  to  subroutine  PERIML. 

The  file  name  containing  the  maps  to  be  plotted  are  placed  in  the  first  line  of  a  file  named 
LABEL.DAT.  The  LABEL.DAT  file  also  contains  the  header  information  to  be  place  at  the 
top  of  the  plot  for  future  identification  and  reference.  The  code  will  loop  through  the 
specified  shadow  map  file  until  all  the  shadow  map  contained  in  the  file  are  plotted.  A 
sample  version  of  a  LABEL.DAT  file  is  given  after  the  code  listing.  It  shows  a  shadow  map 
being  read  off  of  file  FOR010.DAT  which  contains  two  shadow  maps. 
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Listing  of  code  to  plot  shadow  map  using  NCAR: 

PROGRAM  PLTOSU 

DIMENSION  XDUM(2) ,  TDUM(2),  NC(6) 

INTEGER  COLS,  ROWS 

CHARACTER‘80  LABELS (6),  ALAS,  TLAB,  INF 
CHARACTER* <•)  XFORMA ,  TFORMA 
BYTE  BTTE 
C 

C  Theae  >r<  character  paraaatera  for  tha  plotting  output. 

C 

PARAMETER  (  XFORMA  ■  ‘(F6.lV  ) 

PARAMETER  (  TFORMA  •  ‘(F6.1)'  ) 

C 

DATA  XLAB  /'  PHI  '/ 

DATA  TLAB  /‘  THETA  7 
DATA  NC  /  6*72  / 

C 

C  Road  a  haadtr  fro*  F0R006.  Open  tha  file  readonly  ao  that  other  naara 
C  can  road  it  without  Bonding  write  accaaa  to  tha  file. 

C 

OPEN  (  UHIT-6,  TYPE* ’OLD' ,  READONLY  ) 

READ  (  6.  FMI*‘(AV  )  INF 
C 

C  Read  the  haadar  info  froa  tha  data  file.  Open  it  unforaatted. 

C 

OPEN (UNIT-10, FILE-INF , TYPE' ' OLD ' .FORM* 1  UNFORMATTED ' .READONLY) 

13  READ (10. £110*0909)  COLS , THET1D , THET2D .RESTHD 
READ (10 ,END*9999)  ROWS , PH1D , PH2D , RESPHD 

ISCX  -  -2 
ISCY  *  -2 
XMIN  *  PH1D 
XMAX  -  PH2D 
TMIN  *  -THET2D 
TMAX  -  -THET1D 
NDX  •  4 
NTX  *  2 
NOT  *  4 
NTT  *  2 
C 

C  Road  tha  label  info  for  thin  plot. 

C 

READ  (  6.  *  )  LABELS (1) 

READ  (  6.  •  )  SI,  87.  SZ.  SPRX,  SPRY,  TRX 
READ  (  6,  •  )  ZTHET,  ZPHI,  XTHET,  XPHI 
C 

C  Format  tha  labala  for  tha  plot  (via  lntarnal  write  etataaMnte.) 

C 

WRITE  (LABELS (2) ,  1100)  BX,  ST,  SZ 
•RITE  (LABELS (3),  1200)  ZTHET,  ZPHI,  XTHET,  XPHI 
WRITE  (LABELS(4) ,  1300)  SPRX,  SPRT 
WRITE  (LABEL8(6),  1400)  TRX 
C 

C  CALL  IBFOPLT (2 , XDUM , TDUN , XMI N ,  XMAX , TMIN . TMAX . ISCX , 

C  *  BOX, WTX, ISCY, WOT, NT Y, XLAB, 6, TLAB, T, 

C  *  8, LABELS, NC,0, -1,1) 

C 

C  Define  a  sapping  window  froa  data  to  plot 
C 

CALL  SET  ( 


♦ 


0.12, 

0.84, 

0.12, 
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t  Do  a  linaar-linonr  plot. 


C  A  call  to  labmod  alfht  kalp  tha  output  look  Blear. 
C 


CALL  LABMOD  ( 


XBEF(  IFOAWA  ), 
XREF(  TFORNA  ), 
LEN(  IFQRMA  ), 
LEN (  TFORNA  ), 
1. 


C  Put  labola  ob  plot 
C 

XMID=0 . 6‘ (XMIN«XMAX) 

TMID*0 . B» (YMIH*TNAX) 
XDEL*(XMAX-XMIH)/38 . 
TDEL=(YNAX-TNIN)/3«. 

XL*IMIN*0 . S’XDEL 
DO  100  IL«1,6 

YL=YMAX«(8-IL)»TDEL 

100  CALL  PVRIT(XL,TL,lREF(LAB£LS(IL)) ,HC(IL)  ,1,0,- 


C  Daflna  tha  parlmatar  of  tha  plot  wit  a  grid. 
C 

CALL  CRIDL  ( 

♦  NDX, 

♦  BIX. 

♦  DDT, 

♦  HIT  ) 


I  Numbar  of  MAJOR 
)  Numbar  of  MINOR 
I  Numbar  of  MAJOR 
I  Numbar  of  MINOR 


C  Thata  and  Phi  Axla  Labola 

C 

TB0T«TMIN-2.6*TDEL 

CALL  PWRIT(XMID , TBOT , tREF (XLAB) , 6 , 1 ,0, 0) 
XSID-XMIH-6.0*XDEL 

CALL  PWRIKXSID , TMID .XREF(TLAB) ,7,1,90,0) 
1C 

1C  Oaa  thia  call  If  yoa  don't  want  grid  linaa. 
1C  Daflna  tha  parlaotar  of  tha  plot. 

1C 

I  CALL  PERIML  ( 


XINC  >  1.8 
TING  -0.0 
I8TM  *  1 


I  Numbar  of  MAJOR 
!  Numbar  of  MINOR 
I  lumbar  of  MAJOR 
I  Number  of  MINOR 


DO  10  J  •  1,  RONS 
I  -  RESPHD*(J-1)*PH1D 
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0128 

0129 

0130 

0131 

0132 

0133 

0134 

0136 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0146 

0148 

0147 

0146 

0149 

0160 

0161 

0162 

0163 

0164 

0166 

0166 

0167 

0168 

0169 

0160 

0161 

0162 

0163 

0164 

0166 

0166 


DO  20  I  •  1,  COLS 
KE4D  (  10,  END-999  )  BYTE 
IF  (  BYTE  HE.  32  )  THEM 
T  -  -(KESIHD*(I-1)*IHEI1D) 

C 

C  CALL  PLTSYM(  1.  7.  ZINC,  TINC,  IS7M  ) 

C 

C  Piet  tke  lyabol  on  the  page. 

C 

CALL  PWRIK 


4 

l. 

1  Z  coordinate 

4 

T. 

1  Y  coordinate 

4 

BYTE, 

1  The  character  to  plot 

4 

1, 

1  Write  oae  character 

4 

0, 

1  Dae  the  default  alia 

4 

0, 

1  Uea  the  defaalt  orlentat 

4 

0  ) 

1  Uee  the  default  ceaterla 

END  IF 

20  CONTINUE 
10  CONTINUE 

C 

C  "Frane*  the  NCAK  output . 

C 

999  CALL  FRAME 

GOTO  13 
C 

C  Cloie  the  lapat  file  end  atop. 

C 

9999  CLOSE  (  UH IT* 10  ) 

CLOSE  (  UNIT-6  ) 

STOP  'HCAR/Shadow  plot  completed  ' 
C 

C  Formate  go  down  hare. 

C 


1100  FORMAT  (' 

1200  FORMAT  ( ' 

1300  FORMAT  (■ 

1400  FORMAT  ( ' 

END 


ANTENNA  LOCATED  AT  * ,2<F7 .1, • , ’) .FT .1) 
ANTENNA  ORIENTATION:  * ,3<F7.1. *. *>,F7.1> 
SOLAR  PANELS  ROTATED  \F7 . 1 ,  • .  \F7 . 1) 
THERMAL  RADIATORS  ROTATED  ’.F7.1) 
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Listing  of  sample  LABEL.DAT  file: 

FOR010.DAT; 

'  SHADOW  TEST!  FOR  CASE  AN6S1 ‘ 

36  16.  366.6  0.  -S3.  0. 

0.  0.  00.  0. 

•  SHADOW  TESTS  FOR  CASE  AN6S1' 

36.  16.  366.6  0.  -63.  0. 

0.  0.  00.  0. 
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